mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

cleanup

Browse source
This commit is contained in:
Joey Hess 2012-02-21 00:16:24 -04:00
parent 7e17151e69
commit cac130b205
3 changed files with 18 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Git/CatFile.hs
View file

@ -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