set raw mode for git check-attr

1 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