git.iko.soy/typeable/wai
on c48c4d3 help sign in
typeable/wai/embedded-sample.hs
11 lines 310 B history raw
1{-# LANGUAGE TemplateHaskell #-}
2import Network.Wai.Application.Static
3import Network.Wai.Handler.Warp (run)
4import Data.FileEmbed
6main :: IO ()
7main = run 3000 $ staticApp defaultStaticSettings
8 { ssFolder = embeddedLookup $ toEmbedded $(embedDir ".")
9 , ssIndices = []
10 , ssMaxAge = NoMaxAge
11 }