diff options
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Command.hs b/Command.hs index 8e7bf9758..145ad5003 100644 --- a/Command.hs +++ b/Command.hs @@ -39,6 +39,7 @@ import Usage as ReExported import Logs.Trust import Config import Annex.CheckAttr +import qualified Git.Command {- Generates a normal command -} command :: String -> String -> [CommandSeek] -> String -> Command @@ -83,11 +84,14 @@ doCommand = start where start = stage $ maybe skip perform perform = stage $ maybe failure cleanup - cleanup = stage $ status + cleanup = stage $ end stage = (=<<) skip = return True failure = showEndFail >> return False - status r = showEndResult r >> return r + end r = do + -- zombies from long-running git processes + liftIO Git.Command.reap + showEndResult r >> return r {- Modifies an action to only act on files that are already annexed, - and passes the key and backend on to it. -} |