summaryrefslogtreecommitdiff
path: root/Utility/JSONStream.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Utility/JSONStream.hs')
-rw-r--r--Utility/JSONStream.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Utility/JSONStream.hs b/Utility/JSONStream.hs
index 7910c1194..aaa332bca 100644
--- a/Utility/JSONStream.hs
+++ b/Utility/JSONStream.hs
@@ -21,15 +21,15 @@ start :: JSON a => [(String, a)] -> String
start l
| last s == endchar = init s
| otherwise = bad s
- where
- s = encodeStrict $ toJSObject l
+ where
+ s = encodeStrict $ toJSObject l
add :: JSON a => [(String, a)] -> String
add l
| head s == startchar = ',' : drop 1 s
| otherwise = bad s
- where
- s = start l
+ where
+ s = start l
end :: String
end = [endchar, '\n']