@@ -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.3.5: running at <http://localhost:8000>"
14+ putStrLn "Elm Server 0.4.0: 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)