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

remove temp debugging code

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

5
Git/HashObject.hs
View file

@ -5,7 +5,6 @@
- Licensed under the GNU AGPL version 3 or higher. - Licensed under the GNU AGPL version 3 or higher.
-} -}
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Git.HashObject where module Git.HashObject where
@ -49,10 +48,6 @@ 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