git.iko.soy/typeable/wai
on cabf023 help sign in
typeable/wai/sample.hs
11 lines 380 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 , ssCacheSettings = NoCache
11 }