UrlPath :: Text   -- ^ The URL without /.html/.
          -> Text   -- ^ The URL with /.html/ at the end.
toUrlPath  = (<> ".html")


toUrlPath :: Text   -- ^ The URL without /.html/.
          -> Text
toUrlPath  = (<> ".html")
toUrlPath  = (<> ".html")