Modify code to follow hlint suggestions
This commit is contained in:
parent
952c02fabf
commit
10f13d107d
1 changed files with 6 additions and 5 deletions
|
@ -1,4 +1,3 @@
|
||||||
|
|
||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
import Control.Monad (msum,guard,when)
|
import Control.Monad (msum,guard,when)
|
||||||
|
@ -64,7 +63,7 @@ serveElm fp = do
|
||||||
args = [ "--make" ,"--runtime=" ++ runtime,
|
args = [ "--make" ,"--runtime=" ++ runtime,
|
||||||
"--cache-dir=" ++ defaultCacheDirectory, file ]
|
"--cache-dir=" ++ defaultCacheDirectory, file ]
|
||||||
|
|
||||||
serveLib :: FilePath -> [Char] -> ServerPartT IO Response
|
serveLib :: FilePath -> String -> ServerPartT IO Response
|
||||||
serveLib libLoc fp = do
|
serveLib libLoc fp = do
|
||||||
guard (fp == runtime)
|
guard (fp == runtime)
|
||||||
serveFile (asContentType "application/javascript") libLoc
|
serveFile (asContentType "application/javascript") libLoc
|
||||||
|
@ -76,9 +75,11 @@ parse :: [String] -> IO ()
|
||||||
parse ("--help":_) = putStrLn usage
|
parse ("--help":_) = putStrLn usage
|
||||||
parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version)
|
parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version)
|
||||||
parse args =
|
parse args =
|
||||||
case null remainingArgs of
|
if null remainingArgs then
|
||||||
True -> serve portNumber =<< elmRuntime
|
serve portNumber =<< elmRuntime
|
||||||
False -> putStrLn usageMini
|
else
|
||||||
|
putStrLn usageMini
|
||||||
|
|
||||||
where
|
where
|
||||||
runtimeArg = filter (isPrefixOf "--runtime-location=") args
|
runtimeArg = filter (isPrefixOf "--runtime-location=") args
|
||||||
portArg = filter (isPrefixOf "--port=") args
|
portArg = filter (isPrefixOf "--port=") args
|
||||||
|
|
Loading…
Reference in a new issue