b71efe2 · typeable/wai

Network/Wai/Application/Static.hs+7−1

compare with master

unifiedsplit

@@ -5,8 +5,14 @@ module Network.Wai.Application.Static

5 ( -- * WAI application

6 staticApp

7 -- ** Settings

8− , StaticSettings (..)

9 , defaultStaticSettings

8 , defaultStaticSettings

9+ , StaticSettings

10+ , ssFolder

11+ , ssMkRedirect

12+ , ssGetMimeType

13+ , ssListing

14+ , ssIndices

15+ , ssMaxAge

10 -- * Generic, non-WAI code

16 -- * Generic, non-WAI code

11 -- ** Mime types

17 -- ** Mime types

12 , MimeType

18 , MimeType

embedded-sample.hsnew file+11

@@ -0,0 +1,11 @@

1+{-# LANGUAGE TemplateHaskell #-}

2+import Network.Wai.Application.Static

3+import Network.Wai.Handler.Warp (run)

4+import Data.FileEmbed

5+

6+main :: IO ()

7+main = run 3000 $ staticApp defaultStaticSettings

8+ { ssFolder = embeddedLookup $ toEmbedded $(embedDir ".")

9+ , ssIndices = []

10+ , ssMaxAge = NoMaxAge

11+ }

sample.hs+3−5

@@ -1,11 +1,9 @@

1import Network.Wai.Application.Static

2import Network.Wai.Handler.Warp (run)

3−import qualified Data.Text as T

4

3

4+main :: IO ()

5−main = run 3000 $ staticApp StaticSettings

5+main = run 3000 $ staticApp defaultStaticSettings

6 { ssFolder = fileSystemLookup "."

7− , ssMkRedirect = defaultMkRedirect

8− , ssGetMimeType = return . defaultMimeTypeByExt . T.unpack . fileName

9− , ssDirListing = defaultDirListing

10 , ssMaxAge = MaxAgeForever

7 , ssMaxAge = MaxAgeForever

8+ , ssIndices = []

11 }

9 }