git.iko.soy/typeable/wai
on warp/3.1.11 help sign in
typeable/wai/wai-app-static/sample.hs
17 lines 528 B history raw
1{-# LANGUAGE OverloadedStrings #-}
3import Data.String
4import Data.Text (pack)
5import Data.Maybe (mapMaybe)
6import WaiAppStatic.Types (ssIndices, toPiece)
7import Network.Wai.Application.Static (staticApp,defaultFileServerSettings)
8import Network.Wai.Handler.Warp (runSettings, settingsPort, defaultSettings)
9
10main :: IO ()
11main = runSettings defaultSettings
12 {
13 settingsPort = 3000
14 } $ staticApp (defaultFileServerSettings $ fromString ".")
15 {
16 ssIndices = mapMaybe (toPiece . pack) ["index.html"]
17 }