yesod/yesod-static/test/unicode/sample.hs

import Network.Wai.Application.Static
import Network.Wai.Handler.Warp (run)

main :: IO ()
main = run 3000 $ staticApp defaultStaticSettings
    { ssFolder = fileSystemLookup "."
    , ssMaxAge = MaxAgeForever
    , ssIndices = []
    }