git.iko.soy/typeable/wai
on 8208384 help sign in
typeable/wai/sample.hs
9 lines 237 B history raw
1import Network.Wai.Application.Static
2import Network.Wai.Handler.Warp (run)
4main :: IO ()
5main = run 3000 $ staticApp defaultStaticSettings
6 { ssFolder = fileSystemLookup "."
7 , ssMaxAge = MaxAgeForever
8 , ssIndices = []
9 }