Network.WAI.Application.StaticPages

Documentation

parseRoutePaths :: Text -> [Text]

Conveniently specify paths through nested indentation This is a partial function which calls error on invalid input.

 import Shakespeare.Text (st)

 staticPaths = parseRoutePaths [st|
/pages
        about
        faq
        /
|]

 staticPaths == ["/pages/about", "/pages/faq", "/pages"]

renderStaticPages :: Application -> Text -> [Text] -> IO ()