wai-app-static/embedded-sample.hs · typeable/wai

git.iko.soy/typeable/wai

on warp/1.2.2 help sign in

11 lines 314 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 defaultFileServerSettings

8 { ssFolder = embeddedLookup $ toEmbedded $(embedDir ".")

9 , ssIndices = []

10 , ssMaxAge = NoMaxAge

11 }