fix failure count memory leak

This is the last memory leak that prevents git-annex from running
in constant space, as far as I can see. I can now run git annex find
dummied up to repeatedly find the same file over and over, on millions
olf files, and memory stays entirely constant.

1 files changed, 3 insertions, 1 deletions

diff --git a/CmdLine.hs b/CmdLine.hs
index 0bb345912..fbc1eaeca 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -80,7 +80,9 @@ tryRun' errnum state cmd (a:as) = do
 			a
 		handle (Left err) = showerr err >> cont False state
 		handle (Right (success, state')) = cont success state'
-		cont success s = tryRun' (if success then errnum else errnum + 1) s cmd as
+		cont success s = do
+			let errnum' = if success then errnum else errnum + 1
+			(tryRun' $! errnum') s cmd as
 		showerr err = Annex.eval state $ do
 			showErr err
 			showEndFail