buffer json output until done when in concurrent mode
This commit is contained in:
parent
8ef494a833
commit
089c592977
4 changed files with 26 additions and 4 deletions
|
@ -122,7 +122,7 @@ showEndFail :: Annex ()
|
|||
showEndFail = showEndResult False
|
||||
|
||||
showEndResult :: Bool -> Annex ()
|
||||
showEndResult ok = outputMessage (JSON.end ok) $ endResult ok ++ "\n"
|
||||
showEndResult ok = outputMessageFinal (JSON.end ok) $ endResult ok ++ "\n"
|
||||
|
||||
endResult :: Bool -> String
|
||||
endResult True = "ok"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue