summaryrefslogtreecommitdiff
path: root/Command/Status.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-11-14 19:29:35 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-11-14 19:29:35 -0400
commit2412b7e6896b967bb3f8ec8cf5e6ccf3094a3ad1 (patch)
treefd505af0d9f140d964a4505a86aefb0dcdce60a7 /Command/Status.hs
parentbfe38f8ff16dc6ccc32d545e6fed87817caa26cf (diff)
fix exit status so json gets terminated properly
Diffstat (limited to 'Command/Status.hs')
-rw-r--r--Command/Status.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs
index 39d9400fb..2d5996507 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -76,7 +76,7 @@ start = do
fast <- Annex.getState Annex.fast
let stats = if fast then fast_stats else fast_stats ++ slow_stats
evalStateT (mapM_ showStat stats) (StatInfo Nothing Nothing)
- stop
+ next $ next $ return True
stat :: String -> StatState String -> Stat
stat desc a = return $ Just (desc, a)