wai-app-static 3.1.0 → 3.1.0.1
raw patch · 2 files changed
+9/−7 lines, 2 filesdep ~warp
Dependency ranges changed: warp
Files
- WaiAppStatic/CmdLine.hs +7/−5
- wai-app-static.cabal +2/−2
WaiAppStatic/CmdLine.hs view
@@ -8,7 +8,7 @@ import Network.Wai (Middleware) import Network.Wai.Application.Static (staticApp, defaultFileServerSettings) import Network.Wai.Handler.Warp- ( runSettings, defaultSettings, settingsHost, settingsPort+ ( runSettings, defaultSettings, setHost, setPort ) import Options.Applicative import Text.Printf (printf)@@ -100,10 +100,12 @@ let middle = gzip def { gzipFiles = GzipCompress } . (if verbose then logStdout else id) . (middleware args)- runSettings defaultSettings- { settingsPort = port- , settingsHost = fromString host- } $ middle $ staticApp (defaultFileServerSettings $ fromString docroot)+ runSettings+ ( setPort port+ $ setHost (fromString host)+ defaultSettings+ )+ $ middle $ staticApp (defaultFileServerSettings $ fromString docroot) { ssIndices = if noindex then [] else mapMaybe (toPiece . pack) index , ssGetMimeType = return . mimeByExt mimeMap defaultMimeType . fromPiece . fileName }
wai-app-static.cabal view
@@ -1,5 +1,5 @@ name: wai-app-static-version: 3.1.0+version: 3.1.0.1 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>@@ -51,7 +51,7 @@ , filepath , wai-extra >= 3.0 && < 3.1 , optparse-applicative >= 0.7- , warp >= 3.0.11 && < 3.1+ , warp >= 3.0.11 && < 3.2 -- Used exclusively for hashFile function , cryptohash-conduit