aboutsummaryrefslogtreecommitdiff
path: root/Git/CheckAttr.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Git/CheckAttr.hs')
-rw-r--r--Git/CheckAttr.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Git/CheckAttr.hs b/Git/CheckAttr.hs
index 6b321f8b8..7636ea641 100644
--- a/Git/CheckAttr.hs
+++ b/Git/CheckAttr.hs
@@ -44,11 +44,15 @@ checkAttr (h, attrs, cwd) want file = do
_ -> error $ "unable to determine " ++ want ++ " attribute of " ++ file
where
send to = do
+ putStrLn "checkAttr send start"
fileEncoding to
hPutStr to $ file' ++ "\0"
+ putStrLn "checkAttr send end"
receive from = forM attrs $ \attr -> do
+ putStrLn "checkAttr receive start"
fileEncoding from
l <- hGetLine from
+ putStrLn "checkAttr receive end"
return (attr, attrvalue attr l)
{- Before git 1.7.7, git check-attr worked best with
- absolute filenames; using them worked around some bugs