@@ -1,4 +1,3 @@
1−
21module Main where
32
43import Control.Monad (msum,guard,when)
@@ -64,7 +63,7 @@ serveElm fp = do
6463 args = [ "--make" ,"--runtime=" ++ runtime,
6564 "--cache-dir=" ++ defaultCacheDirectory, file ]
6665
67−serveLib :: FilePath -> [Char] -> ServerPartT IO Response
66+serveLib :: FilePath -> String -> ServerPartT IO Response
6867serveLib libLoc fp = do
6968 guard (fp == runtime)
7069 serveFile (asContentType "application/javascript") libLoc
@@ -76,9 +75,11 @@ parse :: [String] -> IO ()
7675parse ("--help":_) = putStrLn usage
7776parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version)
7877parse args =
79− case null remainingArgs of
80− True -> serve portNumber =<< elmRuntime
81− False -> putStrLn usageMini
78+ if null remainingArgs then
79+ serve portNumber =<< elmRuntime
80+ else
81+ putStrLn usageMini
82+
8283 where
8384 runtimeArg = filter (isPrefixOf "--runtime-location=") args
8485 portArg = filter (isPrefixOf "--port=") args