diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-09 16:39:21 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-09 16:39:21 -0400 |
commit | ace1db10a4014011d018720bdd3c3d2f6a1d5592 (patch) | |
tree | c9b9705d7a97f5c89eb9b60a61dff00ff0a55f8d /Messages | |
parent | 39cf838d85d378833dd3837ebfd1be881099eb74 (diff) |
refactor
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 |