Network.WAI.Application.StaticPages

Documentation

parseRoutePaths :: String -> [String]

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

 import Shakespeare.Text (st)

 staticPaths = parseRoutePaths $ T.unpack [st|
/pages
        about
        faq
        /
|]

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

renderStaticPages :: [Char] -> [String] -> Application -> IO ()