, mkPageURI
, mkPageFragmentURI
, mkObjectURI
+ , mkAuxiliaryURI
)
where
mkObjectURI :: URI -> PageName -> URI
mkObjectURI baseURI name
+ = mkAuxiliaryURI baseURI ["object"] name
+
+
+mkAuxiliaryURI :: URI -> [String] -> PageName -> URI
+mkAuxiliaryURI baseURI basePath name
= baseURI {
- uriPath = foldl combine "/" [uriPath baseURI, "object", encodePageName name]
+ uriPath = foldl combine "/" ([uriPath baseURI] ++ basePath ++ [encodePageName name])
}