diff options
author | 2013-05-11 23:11:56 -0400 | |
---|---|---|
committer | 2013-05-11 23:11:56 -0400 | |
commit | c46bbe9b5095dc58ab11c106e07179db85a0f1df (patch) | |
tree | c5c49c51841509f0da98715297252dfba11ec8af /Git/CatFile.hs | |
parent | cbc98eee9d583f56d52a70fbff7abe171a1ecebe (diff) |
refactoring
Diffstat (limited to 'Git/CatFile.hs')
-rwxr-xr-x | Git/CatFile.hs | 15 |
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] |