buffer json output until done when in concurrent mode

This commit is contained in:
Joey Hess 2016-09-09 13:21:38 -04:00
parent 8ef494a833
commit 089c592977
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
4 changed files with 26 additions and 4 deletions

View file

@ -30,6 +30,7 @@ data MessageState = MessageState
, consoleRegion :: Maybe ConsoleRegion
, consoleRegionErrFlag :: Bool
#endif
, jsonBuffer :: [IO ()]
}
instance Default MessageState
@ -43,4 +44,5 @@ instance Default MessageState
, consoleRegion = Nothing
, consoleRegionErrFlag = False
#endif
, jsonBuffer = []
}