whitespace fixes

This commit is contained in:
Joey Hess 2012-12-13 00:45:27 -04:00
parent f87a781aa6
commit 0d50a6105b
33 changed files with 97 additions and 100 deletions

View file

@ -14,9 +14,9 @@ module Utility.JSONStream (
import Text.JSON
{- Text.JSON does not support building up a larger JSON document piece by
piece as a stream. To support streaming, a hack. The JSObject is converted
to a string with its final "}" is left off, allowing it to be added to
later. -}
- piece as a stream. To support streaming, a hack. The JSObject is converted
- to a string with its final "}" is left off, allowing it to be added to
- later. -}
start :: JSON a => [(String, a)] -> String
start l
| last s == endchar = init s