mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix exit status so json gets terminated properly

Browse source
This commit is contained in:
Joey Hess 2011-11-14 19:29:35 -04:00
parent bfe38f8ff1
commit 2412b7e689
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Status.hs
View file

@ -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)