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

git.iko.soy/typeable/wai

on warp/3.1.10 help sign in

13 lines 363 B history raw

1{-# LANGUAGE TemplateHaskell #-}

2{-# LANGUAGE OverloadedStrings #-}

3import Network.Wai.Application.Static

4import Network.Wai.Handler.Warp (run)

5import Data.FileEmbed

6import WaiAppStatic.Types

7import WaiAppStatic.Storage.Embedded

9main :: IO ()

10main = run 3000 $ staticApp (embeddedSettings $(embedDir "test"))

11 { ssIndices = []

12 , ssMaxAge = NoMaxAge

13 }