mirror of
https://github.com/typeable/wai.git
synced 2025-01-05 21:14:26 +03:00
14 lines
363 B
Haskell
14 lines
363 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
import Network.Wai.Application.Static
|
|
import Network.Wai.Handler.Warp (run)
|
|
import Data.FileEmbed
|
|
import WaiAppStatic.Types
|
|
import WaiAppStatic.Storage.Embedded
|
|
|
|
main :: IO ()
|
|
main = run 3000 $ staticApp (embeddedSettings $(embedDir "test"))
|
|
{ ssIndices = []
|
|
, ssMaxAge = NoMaxAge
|
|
}
|