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

reap zombies

Browse source
This commit is contained in:
Joey Hess 2012-01-07 00:22:16 -04:00
parent b8966433ef
commit dfa76069d4
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Command/Log.hs
View file

@ -56,6 +56,7 @@ seek = [withValue (concat <$> mapM getoption options) $ \os ->
start :: [CommandParam] -> FilePath -> (Key, Backend) -> CommandStart start :: [CommandParam] -> FilePath -> (Key, Backend) -> CommandStart
start os file (key, _) = do start os file (key, _) = do
showLog file =<< readLog <$> getLog key os showLog file =<< readLog <$> getLog key os
liftIO Git.Command.reap
stop stop
showLog :: FilePath -> [RefChange] -> Annex () showLog :: FilePath -> [RefChange] -> Annex ()