@@ -11,7 +11,7 @@ import qualified Language.Elm as Elm
12serve :: String -> IO ()
12serve :: String -> IO ()
13serve libLoc = do
13serve libLoc = do
14− putStrLn "Elm Server 0.2.0: running at <http://localhost:8000>"
14+ putStrLn "Elm Server 0.3.0.1: running at <http://localhost:8000>"
15 simpleHTTP nullConf $ do
15 simpleHTTP nullConf $ do
16 _ <- compressedResponseFilter
16 _ <- compressedResponseFilter
17 msum [ uriRest (serveElm libLoc)
17 msum [ uriRest (serveElm libLoc)
@@ -34,7 +34,7 @@ main = getArgs >>= parse
35parse :: [String] -> IO ()
35parse :: [String] -> IO ()
36parse ("--help":_) = putStrLn usage
36parse ("--help":_) = putStrLn usage
37−parse ("--version":_) = putStrLn "The Elm Server 0.2.0"
37+parse ("--version":_) = putStrLn "The Elm Server 0.3.0.1"
38parse [] = serve "/elm-mini.js"
38parse [] = serve "/elm-mini.js"
39parse [arg]
39parse [arg]
40 | "--runtime-location=" `isPrefixOf` arg =
40 | "--runtime-location=" `isPrefixOf` arg =