mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
This commit is contained in:
Joey Hess 2016-09-09 16:39:21 -04:00
parent 3e22d60549
commit e2a69c2cee
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Messages/JSON.hs
View file

@ -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