diff options
author | Joey Hess <joey@kitenet.net> | 2011-10-02 11:42:34 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-10-02 11:42:34 -0400 |
commit | 61fbea992da0f2a1ed49e2e862ef937b25d8430b (patch) | |
tree | 1e24d2f7ae4de66161b1d88e31e2abbd879d5c82 /CmdLine.hs | |
parent | 49f21dd9ba4819aedf04ebbc0c12fafdb3dc8ab5 (diff) |
when all you have is a zombie, everything looks like a shotgun
Actually, let's do a targeted fix of the actual forkProcess that was not
waited on. The global reap is moved back to the end, after the long-running
git processes actually exit.
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index 0ee0c6adb..38d4754da 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -85,9 +85,7 @@ tryRun' :: Integer -> Annex.AnnexState -> [Annex Bool] -> IO () tryRun' errnum state (a:as) = do result <- try $ Annex.run state $ do AnnexQueue.flushWhenFull - r <- a - liftIO Git.reap - return r + a case result of Left err -> do Annex.eval state $ do @@ -106,4 +104,5 @@ startup = return True shutdown :: Annex Bool shutdown = do saveState + liftIO Git.reap -- zombies from long-running git processes return True |