@@ -16,7 +16,8 @@ runtime = "/elm-" ++ showVersion version ++ ".js"
17serve :: String -> IO ()
17serve :: String -> IO ()
18serve libLoc = do
18serve libLoc = do
19− putStrLn ("Elm Server " ++ showVersion version ++ ": running at <http://localhost:8000>")
19+ putStrLn ("Elm Server " ++ showVersion version ++
20+ ": running at <http://localhost:8000>")
20 putStrLn "Just refresh a page to recompile it!"
21 putStrLn "Just refresh a page to recompile it!"
21 simpleHTTP nullConf $ do
22 simpleHTTP nullConf $ do
22 _ <- compressedResponseFilter
23 _ <- compressedResponseFilter
@@ -43,7 +44,7 @@ main = getArgs >>= parse
43parse :: [String] -> IO ()
44parse :: [String] -> IO ()
44parse ("--help":_) = putStrLn usage
45parse ("--help":_) = putStrLn usage
45parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version)
46parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version)
46−parse [] = serve =<< Elm.runtimeLocation
47+parse [] = serve =<< Elm.runtime
47parse [arg]
48parse [arg]
48 | "--runtime-location=" `isPrefixOf` arg =
49 | "--runtime-location=" `isPrefixOf` arg =
49 serve . tail $ dropWhile (/='=') arg
50 serve . tail $ dropWhile (/='=') arg