, mkObjectURI
, mkFragmentURI
, mkAuxiliaryURI
+ , mkRDFURI
, mkRakkaURI
, xmlizePage
}
+mkRDFURI :: URI -> PageName -> URI
+mkRDFURI baseURI name
+ = baseURI {
+ uriPath = foldl (</>) "/" [uriPath baseURI, encodePageName name ++ ".rdf"]
+ }
+
+
mkRakkaURI :: PageName -> URI
mkRakkaURI name = URI {
uriScheme = "rakka:"