elm-server 0.5.0 → 0.6

raw patch · 2 files changed

+10/−12 lines, 2 filesdep +filepathdep −directorydep ~Elm

Dependencies added: filepath

Dependencies removed: directory

Dependency ranges changed: Elm

Files

• Server.hs +7/−9
• elm-server.cabal +3/−3

@@ -7,12 +7,12 @@ import Data.Version (showVersion) import Happstack.Server import Happstack.Server.Compression-import System.Directory (makeRelativeToCurrentDirectory) import System.Environment+import System.FilePath import qualified Language.Elm as Elm import Paths_elm_server -runtime = "elm-" ++ showVersion version ++ ".js"+runtime = "/elm-" ++ showVersion version ++ ".js"  serve :: String -> IO () serve libLoc = do@@ -25,17 +25,15 @@               ]  pageTitle :: String -> String-pageTitle fp =-    reverse . takeWhile (/='/') . drop 1 . dropWhile (/='.') $ reverse fp+pageTitle = dropExtension . takeBaseName  serveElm fp = do-  let ('/':filePath) = fp-  guard (".elm" `isSuffixOf` filePath)-  content <- liftIO (readFile filePath)-  ok . toResponse $ Elm.toHtml runtime (pageTitle filePath) content+  guard (takeExtension fp == ".elm")+  content <- liftIO (readFile (tail fp))+  ok . toResponse $ Elm.toHtml runtime (pageTitle fp) content  serveLib libLoc fp = do-  guard (fp == '/' : runtime)+  guard (fp == runtime)   serveFile (asContentType "application/javascript") libLoc  main :: IO ()

@@ -1,5 +1,5 @@ Name:                elm-server-Version:             0.5.0+Version:             0.6 Synopsis:            The Elm language server. Description:         This package provides a standalone, Happstack-based Elm server. @@ -34,5 +34,5 @@                        HTTP >= 4000,                        happstack-server == 7.0.2,                        deepseq,-                       directory,-                       Elm >= 0.5.0+                       filepath,+                       Elm >= 0.6