summaryrefslogtreecommitdiff
path: root/Git
diff options
context:
space:
mode:
authorGravatar Joey Hess <id@joeyh.name>2013-05-12 16:37:06 -0500
committerGravatar Joey Hess <id@joeyh.name>2013-05-12 16:37:06 -0500
commitf300a3fafc6fcb30e943e20c61abfe0b0f2271e9 (patch)
tree38f7eda13058857c95ed1e9bc6686d01f401144e /Git
parenta7fb393fabd328b4a49198f4740521d8656f673d (diff)
set raw mode for git check-attr
Diffstat (limited to 'Git')
-rwxr-xr-x[-rw-r--r--]Git/CheckAttr.hs7
-rwxr-xr-x[-rw-r--r--]Git/LsFiles.hs0
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