diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
| commit | 264bd9ebe37855d4005022df057da13ec8080afb (patch) | |
| tree | f32f13646ece29c8f6336b8680cb07dd55187be5 /Messages/JSON.hs | |
| parent | d9f5cc9f73ea046fcd2b59b5e75d4600593ac05b (diff) | |
where indenting
Diffstat (limited to 'Messages/JSON.hs')
| -rw-r--r-- | Messages/JSON.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Messages/JSON.hs b/Messages/JSON.hs index f7a031e38..e262192a8 100644 --- a/Messages/JSON.hs +++ b/Messages/JSON.hs @@ -20,9 +20,9 @@ import qualified Utility.JSONStream as Stream start :: String -> Maybe String -> IO () start command file = putStr $ Stream.start $ ("command", command) : filepart file - where - filepart Nothing = [] - filepart (Just f) = [("file", f)] + where + filepart Nothing = [] + filepart (Just f) = [("file", f)] end :: Bool -> IO () end b = putStr $ Stream.add [("success", b)] ++ Stream.end |