b71efe2 · typeable/wai

git.iko.soy/typeable/wai

Hiding StaticSettings constructor

commitb71efe24050544601ad78050a6ec1c7fc2018311 authorMichael Snoyman <michael@snoyman.com> dateTue 7 Jun 2011, 14:24 (15 years ago) parentb63437c

3 files changed+21−6

compare with master

unifiedsplit

Network/Wai/Application/Static.hs+7−1 embedded-sample.hs+11 sample.hs+3−5

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

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

55 ( -- * WAI application

66 staticApp

77 -- ** Settings

8− , StaticSettings (..)

98 , defaultStaticSettings

9+ , StaticSettings

10+ , ssFolder

11+ , ssMkRedirect

12+ , ssGetMimeType

13+ , ssListing

14+ , ssIndices

15+ , ssMaxAge

1016 -- * Generic, non-WAI code

1117 -- ** Mime types

1218 , 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

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 @@

11import Network.Wai.Application.Static

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

3−import qualified Data.Text as T

5−main = run 3000 $ staticApp StaticSettings

4+main :: IO ()

5+main = run 3000 $ staticApp defaultStaticSettings

66 { ssFolder = fileSystemLookup "."

7− , ssMkRedirect = defaultMkRedirect

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

9− , ssDirListing = defaultDirListing

107 , ssMaxAge = MaxAgeForever

8+ , ssIndices = []

119 }