where indenting
This commit is contained in:
parent
6a0756d2fb
commit
2172cc586e
42 changed files with 1193 additions and 1209 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue