elm-server 0.4.0.3 → 0.4.0.4

raw patch · 2 files changed

+7/−6 lines, 2 filesdep ~Elm

Dependency ranges changed: Elm

Files

• Server.hs +5/−4
• elm-server.cabal +2/−2

@@ -4,6 +4,7 @@ import Control.Monad (msum,guard) import Control.Monad.Trans (MonadIO(liftIO)) import Data.List (isPrefixOf, isSuffixOf)+import Data.Version (showVersion) import Happstack.Server import Happstack.Server.Compression import System.Directory (makeRelativeToCurrentDirectory)@@ -11,11 +12,11 @@ import qualified Language.Elm as Elm import Paths_elm_server -runtime = "/elm-" ++ show version ++ ".js"+runtime = "elm-" ++ showVersion version ++ ".js"  serve :: String -> IO () serve libLoc = do-  putStrLn ("Elm Server "++show version++": running at <http://localhost:8000>")+  putStrLn ("Elm Server " ++ showVersion version ++ ": running at <http://localhost:8000>")   simpleHTTP nullConf $ do          _ <- compressedResponseFilter          msum [ uriRest serveElm@@ -34,7 +35,7 @@   ok . toResponse $ Elm.toHtml runtime (pageTitle filePath) content  serveLib libLoc fp = do-  guard (fp == runtime)+  guard (fp == '/' : runtime)   serveFile (asContentType "application/javascript") libLoc  main :: IO ()@@ -42,7 +43,7 @@  parse :: [String] -> IO () parse ("--help":_) = putStrLn usage-parse ("--version":_) = putStrLn ("The Elm Server " ++ show version)+parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version) parse [] = serve =<< Elm.runtimeLocation parse [arg]     | "--runtime-location=" `isPrefixOf` arg =

@@ -1,5 +1,5 @@ Name:                elm-server-Version:             0.4.0.3+Version:             0.4.0.4 Synopsis:            The Elm language server. Description:         This package provides a standalone, Happstack-based Elm server. @@ -35,4 +35,4 @@                        happstack-server == 7.0.2,                        deepseq,                        directory,-                       Elm >= 0.4.0.3+                       Elm >= 0.4.0.4