From ace1db10a4014011d018720bdd3c3d2f6a1d5592 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 9 Sep 2016 16:39:21 -0400 Subject: refactor --- Messages/JSON.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Messages') 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 -- cgit v1.2.3