From f300a3fafc6fcb30e943e20c61abfe0b0f2271e9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 12 May 2013 16:37:06 -0500 Subject: set raw mode for git check-attr --- Git/CheckAttr.hs | 7 ++----- Git/LsFiles.hs | 0 2 files changed, 2 insertions(+), 5 deletions(-) mode change 100644 => 100755 Git/CheckAttr.hs mode change 100644 => 100755 Git/LsFiles.hs (limited to 'Git') diff --git a/Git/CheckAttr.hs b/Git/CheckAttr.hs old mode 100644 new mode 100755 index f9279d460..b3055fd4c --- 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 old mode 100644 new mode 100755 -- cgit v1.2.3