diff options
author | 2011-11-14 19:29:35 -0400 | |
---|---|---|
committer | 2011-11-14 19:29:35 -0400 | |
commit | 2412b7e6896b967bb3f8ec8cf5e6ccf3094a3ad1 (patch) | |
tree | fd505af0d9f140d964a4505a86aefb0dcdce60a7 | |
parent | bfe38f8ff16dc6ccc32d545e6fed87817caa26cf (diff) |
fix exit status so json gets terminated properly
-rw-r--r-- | Command/Status.hs | 2 |
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) |