diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
| commit | 94554782894ec6c26da3b46312d5d1d16d596458 (patch) | |
| tree | 78746106bfb153945ccbfd2bbae536081c005e91 /Utility/JSONStream.hs | |
| parent | 55bd61d8c42aaf36a3c57f8444c493f6b045f4cd (diff) | |
finished where indentation changes
Diffstat (limited to 'Utility/JSONStream.hs')
| -rw-r--r-- | Utility/JSONStream.hs | 8 |
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'] |