summaryrefslogtreecommitdiff
path: root/Git/CatFile.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-11 23:11:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-11 23:11:56 -0400
commitc46bbe9b5095dc58ab11c106e07179db85a0f1df (patch)
treec5c49c51841509f0da98715297252dfba11ec8af /Git/CatFile.hs
parentcbc98eee9d583f56d52a70fbff7abe171a1ecebe (diff)
refactoring
Diffstat (limited to 'Git/CatFile.hs')
-rwxr-xr-xGit/CatFile.hs15
1 files changed, 2 insertions, 13 deletions
diff --git a/Git/CatFile.hs b/Git/CatFile.hs
index c1ba11bd9..b83241445 100755
--- a/Git/CatFile.hs
+++ b/Git/CatFile.hs
@@ -5,8 +5,6 @@
- Licensed under the GNU GPL version 3 or higher.
-}
-{-# LANGUAGE CPP #-}
-
module Git.CatFile (
CatFileHandle,
catFileStart,
@@ -30,7 +28,7 @@ import qualified Utility.CoProcess as CoProcess
type CatFileHandle = CoProcess.CoProcessHandle
catFileStart :: Repo -> IO CatFileHandle
-catFileStart = gitCoProcessStart
+catFileStart = CoProcess.rawMode <=< gitCoProcessStart
[ Param "cat-file"
, Param "--batch"
]
@@ -51,17 +49,8 @@ catObject h object = maybe L.empty fst <$> catObjectDetails h object
catObjectDetails :: CatFileHandle -> Ref -> IO (Maybe (L.ByteString, Sha))
catObjectDetails h object = CoProcess.query h send receive
where
- send to = do
- fileEncoding to
-#ifdef __WINDOWS__
- hSetNewlineMode to noNewlineTranslation
-#endif
- hPutStrLn to $ show object
+ send to = hPutStrLn to $ show object
receive from = do
- fileEncoding from
-#ifdef __WINDOWS__
- hSetNewlineMode from noNewlineTranslation
-#endif
header <- hGetLine from
case words header of
[sha, objtype, size]