snap-elm 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+19/−12 lines, 2 files

Files

snap-elm.cabal +1/−1
src/Snap/Elm.hs +18/−11

snap-elm.cabal view

@@ -1,5 +1,5 @@ name:                snap-elm-version:             0.1.0.0+version:             0.1.0.1 synopsis:            Serve Elm files through the Snap web framework. license:             BSD3 license-file:        LICENSE

src/Snap/Elm.hs view

@@ -37,7 +37,7 @@ >     addRoutes $ routes opts >     ... -|-}+-}  module Snap.Elm where @@ -58,6 +58,7 @@ import           System.Process ------------------------------------------------------------------------------ +------------------------------------------------------------------------------ -- | A set of options to coordinate the serving of Elm files and runtime. data ElmOptions = ElmOptions   { elmRuntimeURI  :: ByteString@@ -66,17 +67,19 @@   , elmCachePath   :: FilePath   } +------------------------------------------------------------------------------ -- | The default set of options for serving Elm files.---   This will use "static/js/elm-runtime.js" as the URI---   for the Elm runtime, so you should use a custom route---   if the route conflicts with another, for some reason.+-- This will use "static/js/elm-runtime.js" as the URI+-- for the Elm runtime, so you should use a custom route+-- if the route conflicts with another, for some reason. defaultElmOptions :: MonadIO m => m ElmOptions defaultElmOptions = mkElmOptions-  "static/js/elm-runtime.js"+  "/static/js/elm-runtime.js"   Nothing   Nothing   Nothing +------------------------------------------------------------------------------ -- | Construct a custom set of options. mkElmOptions :: MonadIO m   => ByteString     -- ^ Route at which to serve Elm runtime@@ -90,8 +93,9 @@   let cp = fromMaybe "elm-cache" mc   return $ ElmOptions uri rt bp cp +------------------------------------------------------------------------------ -- | Serve an Elm file. The 'ElmOptions' argument can be---   constructed at the initialization of your app.+-- constructed at the initialization of your app. serveElm :: MonadSnap m => ElmOptions -> FilePath -> m () serveElm opts fp = when (takeExtension fp == ".elm") $ do   let args = [ "--make" @@ -107,17 +111,20 @@                        , T.pack out                        , T.pack err                        ]-    ExitSuccess   -> serveFile (buildPath </> replaceExtension fp "html")+    ExitSuccess   -> serveFile $ buildPath </> replaceExtension fp "html"   where   buildPath   = elmBuildPath opts   cachePath   = elmCachePath opts   runtimeURI  = C8.unpack $ elmRuntimeURI opts +------------------------------------------------------------------------------ -- | A route handler for the Elm runtime. If given the 'ElmOptions' used---   by 'serveElm', it will place the runtime at the route the Elm file---   will expect, as per the <script src=".../runtime.js"> element included---   in the compiled file's <head> section.+-- by 'serveElm', it will place the runtime at the route the Elm file+-- will expect, as per the <script src=".../runtime.js"> element included+-- in the compiled file's <head> section. serveElmRuntime :: MonadSnap m => ElmOptions -> (ByteString, m ()) serveElmRuntime opts =-  (elmRuntimeURI opts, serveFile $ elmRuntimePath opts)+  ( elmRuntimeURI opts+  , serveFile $ elmRuntimePath opts+  )