mkPageURI :: URI -> PageName -> URI
mkPageURI baseURI name
= baseURI {
- uriPath = foldl combine "/" [uriPath baseURI, encodePageName name]
+ uriPath = foldl combine "/" [uriPath baseURI, encodePageName name ++ ".html"]
}
mkPageFragmentURI :: URI -> PageName -> String -> URI
mkPageFragmentURI baseURI name fragment
= baseURI {
- uriPath = foldl combine "/" [uriPath baseURI, encodePageName name]
+ uriPath = foldl combine "/" [uriPath baseURI, encodePageName name ++ ".html"]
, uriFragment = ('#':fragment)
}