diff options
author | Joey Hess <id@joeyh.name> | 2013-05-12 16:37:06 -0500 |
---|---|---|
committer | Joey Hess <id@joeyh.name> | 2013-05-12 16:37:06 -0500 |
commit | f300a3fafc6fcb30e943e20c61abfe0b0f2271e9 (patch) | |
tree | 38f7eda13058857c95ed1e9bc6686d01f401144e /Git | |
parent | a7fb393fabd328b4a49198f4740521d8656f673d (diff) |
set raw mode for git check-attr
Diffstat (limited to 'Git')
-rwxr-xr-x[-rw-r--r--] | Git/CheckAttr.hs | 7 | ||||
-rwxr-xr-x[-rw-r--r--] | Git/LsFiles.hs | 0 |
2 files changed, 2 insertions, 5 deletions
diff --git a/Git/CheckAttr.hs b/Git/CheckAttr.hs index f9279d460..b3055fd4c 100644..100755 --- a/Git/CheckAttr.hs +++ b/Git/CheckAttr.hs @@ -22,7 +22,7 @@ type Attr = String checkAttrStart :: [Attr] -> Repo -> IO CheckAttrHandle checkAttrStart attrs repo = do cwd <- getCurrentDirectory - h <- gitCoProcessStart params repo + h <- CoProcess.rawMode =<< gitCoProcessStart params repo return (h, attrs, cwd) where params = @@ -43,11 +43,8 @@ checkAttr (h, attrs, cwd) want file = do [v] -> return v _ -> error $ "unable to determine " ++ want ++ " attribute of " ++ file where - send to = do - fileEncoding to - hPutStr to $ file' ++ "\0" + send to = hPutStr to $ file' ++ "\0" receive from = forM attrs $ \attr -> do - fileEncoding from l <- hGetLine from return (attr, attrvalue attr l) {- Before git 1.7.7, git check-attr worked best with diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs index 82ce0edaf..82ce0edaf 100644..100755 --- a/Git/LsFiles.hs +++ b/Git/LsFiles.hs |