@@ -11,7 +11,7 @@ import Language.Elm
12serve :: String -> IO ()
12serve :: String -> IO ()
13serve libLoc = do
13serve libLoc = do
14− putStrLn "Elm Server 0.1.1.6: running at <http://localhost:8000>"
14+ putStrLn "Elm Server 0.1.1.7: 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)
@@ -31,7 +31,7 @@ serveElm libLoc fp = do
31main = getArgs >>= parse
31main = getArgs >>= parse
33parse ("--help":_) = putStrLn usage
33parse ("--help":_) = putStrLn usage
34−parse ("--version":_) = putStrLn "The Elm Server 0.1.1.6"
34+parse ("--version":_) = putStrLn "The Elm Server 0.1.1.7"
35parse [] = serve "/elm-mini.js"
35parse [] = serve "/elm-mini.js"
36parse [arg]
36parse [arg]
37 | "--runtime-location=" `isPrefixOf` arg =
37 | "--runtime-location=" `isPrefixOf` arg =