reap zombies

This commit is contained in:
Joey Hess 2012-01-07 00:22:16 -04:00
parent b8966433ef
commit dfa76069d4

View file

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