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

git.iko.soy/typeable/wai

on wai-eventsource/2.0.0.1 help sign in

11 lines 314 B history raw

1{-# LANGUAGE OverloadedStrings #-}

2import Network.Wai.Application.Static

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

5main :: IO ()

6main = run 3000 $ staticApp defaultWebAppSettings

7 { ssLookupFile = fileSystemLookup "."

8 , ssMaxAge = MaxAgeForever

9 , ssIndices = []

10 , ssListing = Just defaultListing

11 }