wai-make-assets 0.1 → 0.1.1

raw patch · 2 files changed

+12/−9 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/wai-make-assets.hs +11/−8
• wai-make-assets.cabal +1/−1

@@ -1,5 +1,7 @@ {-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE ViewPatterns #-} +import           Data.Maybe import           Network.Wai.Handler.Warp import           System.IO import           WithCli@@ -8,17 +10,18 @@  data Args   = Args {-    port :: Int+    port :: Maybe Int   }   deriving (Generic)  instance HasArguments Args  main :: IO ()-main = withCliModified [AddShortOption "port" 'p'] $ \ (Args port) -> do-  let settings =-        setPort port $-        setBeforeMainLoop (hPutStrLn stderr-          ("listening to " ++ show port ++ "...")) $-        defaultSettings-  runSettings settings =<< serveAssets+main = withCliModified [AddShortOption "port" 'p'] $+  \ (Args (fromMaybe 8000 -> port)) -> do+    let settings =+          setPort port $+          setBeforeMainLoop (hPutStrLn stderr+            ("listening to " ++ show port ++ "...")) $+          defaultSettings+    runSettings settings =<< serveAssets

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           wai-make-assets-version:        0.1+version:        0.1.1 synopsis:       Compiling and serving assets description:    Small wai library and command line tool for compiling and serving assets (e.g. through ghcjs, elm, sass) category:       Development