Fix zombie cleanup reversion introduced in 3.20121009.

CmdLine.hs

@@ -21,7 +21,6 @@ import Common.Annex
 import qualified Annex
 import qualified Annex.Queue
 import qualified Git
-import qualified Git.Command
 import qualified Git.AutoCorrect
 import Annex.Content
 import Annex.Ssh
@@ -118,6 +117,5 @@ shutdown :: Bool -> Annex Bool
 shutdown nocommit = do
 	saveState nocommit
 	sequence_ =<< M.elems <$> Annex.getState Annex.cleanup
-	liftIO Git.Command.reap -- zombies from long-running git processes
 	sshCleanup -- ssh connection caching
 	return True

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. -}

debian/changelog

@@ -1,3 +1,9 @@
+git-annex (3.20121017) UNRELEASED; urgency=low
+
+  * Fix zombie cleanup reversion introduced in 3.20121009.
+
+ -- Joey Hess <joeyh@debian.org>  Tue, 16 Oct 2012 21:05:42 -0400
+
 git-annex (3.20121016) unstable; urgency=low
 
   * vicfg: New file format, avoids ambiguity with repos that have the same