diff options
Diffstat (limited to 'Git/CatFile.hs')
| -rw-r--r-- | Git/CatFile.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Git/CatFile.hs b/Git/CatFile.hs index 2987a9d9d..41ecb362c 100644 --- a/Git/CatFile.hs +++ b/Git/CatFile.hs @@ -25,12 +25,12 @@ import qualified Utility.CoProcess as CoProcess type CatFileHandle = CoProcess.CoProcessHandle -{- Starts git cat-file running in batch mode in a repo and returns a handle. -} catFileStart :: Repo -> IO CatFileHandle -catFileStart repo = CoProcess.start "git" $ toCommand $ - gitCommandLine [Param "cat-file", Param "--batch"] repo +catFileStart = CoProcess.start "git" . toCommand . gitCommandLine + [ Param "cat-file" + , Param "--batch" + ] -{- Stops git cat-file. -} catFileStop :: CatFileHandle -> IO () catFileStop = CoProcess.stop |