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
|
@ -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 = []
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue