diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-02-21 00:16:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-02-21 00:16:24 -0400 |
| commit | cac130b205fca9fc45833296dc326b3fd6385163 (patch) | |
| tree | bd27ca58e17fa0fd2daa79011257b2d5b22bf717 /Git/CatFile.hs | |
| parent | 7e17151e69fcd86fd5cb90dd61ff55d2d017fee7 (diff) | |
cleanup
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 |