mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

debug test suite crash on windows

Browse source
This commit is contained in:
Joey Hess 2025-01-29 16:37:54 -04:00
parent 1b7293fb67
commit 415455883c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/HashObject.hs
View file

@ -49,6 +49,10 @@ hashFile hdl@(HashObjectHandle h _ _) file = do
-- So, make the filename absolute, which will work now -- So, make the filename absolute, which will work now
-- and also if git's behavior later changes. -- and also if git's behavior later changes.
file' <- absPath file file' <- absPath file
-- XXX windows crash debugging
#ifndef mingw32_HOST_OS
hPutStrLn stderr $ show ("hashFile called on file", file, "abspath is", file')
#endif
if newline `S.elem` file' || carriagereturn `S.elem` file if newline `S.elem` file' || carriagereturn `S.elem` file
then hashFile' hdl file then hashFile' hdl file
else CoProcess.query h (send file') receive else CoProcess.query h (send file') receive