be72e86 · elk · git.iko.soy

Fix the server

commitbe72e868ee92948776bf646861cf70b71e9f5463 authorevancz <info@elm-lang.org> dateSun 28 Apr 2013, 22:17 (14 years ago) parent6ca373b

2 files changed+5−4

unifiedsplit

server/Server.hs+3−2

@@ -16,7 +16,8 @@ runtime = "/elm-" ++ showVersion version ++ ".js"

1616

1717serve :: String -> IO ()

1818serve 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>")

2021 putStrLn "Just refresh a page to recompile it!"

2122 simpleHTTP nullConf $ do

2223 _ <- compressedResponseFilter

@@ -43,7 +44,7 @@ main = getArgs >>= parse

4344parse :: [String] -> IO ()

4445parse ("--help":_) = putStrLn usage

4546parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version)

46−parse [] = serve =<< Elm.runtimeLocation

47+parse [] = serve =<< Elm.runtime

4748parse [arg]

4849 | "--runtime-location=" `isPrefixOf` arg =

4950 serve . tail $ dropWhile (/='=') arg

server/elm-server.cabal+2−2

@@ -1,5 +1,5 @@

11Name: elm-server

2−Version: 0.7

2+Version: 0.8

33Synopsis: The Elm language server.

44Description: This package provides a standalone, Happstack-based Elm server.

@@ -35,4 +35,4 @@ Executable elm-server

3535 happstack-server == 7.1.1 || == 7.0.2,

3636 deepseq,

3737 filepath,

38− Elm >= 0.7

38+ Elm >= 0.8