git.iko.soy/typeable/wai
on b66adea help sign in
typeable/wai/sample.hs
11 lines 379 B history raw
1import Network.Wai.Application.Static
2import Network.Wai.Handler.Warp (run)
3import qualified Data.Text as T
5main = run 3000 $ staticApp StaticSettings
6 { ssFolder = fileSystemLookup "."
7 , ssMkRedirect = defaultMkRedirect
8 , ssGetMimeType = return . defaultMimeTypeByExt . T.unpack . fileName
9 , ssDirListing = defaultDirListing
10 , ssMaxAge = MaxAgeForever
11 }