diff options
Diffstat (limited to 'Messages')
-rw-r--r-- | Messages/JSON.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Messages/JSON.hs b/Messages/JSON.hs index 3baeaef3f..e8491c691 100644 --- a/Messages/JSON.hs +++ b/Messages/JSON.hs @@ -80,9 +80,7 @@ complete v = Stream.start v `B.append` Stream.end progress :: B.ByteString -> Integer -> BytesProcessed -> IO () progress jsonbuffer size bytesprocessed = emit $ B.concat [ Stream.start $ Stream.AesonObject o - , ",\"action\":" - , jsonbuffer - , "}" + , Stream.addNestedObject "action" jsonbuffer , Stream.end ] where |