X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FPage.hs;h=6d3dff0bdb927ff15c863fd165ed49197b10dc4d;hb=7dc6971beb8a9c9fc36a7275d03abf1f1f7c25e5;hp=62606b35af111daa344d37d738dfabd4aa273172;hpb=23977989ef4be7316b1c2c3f709ca1e8e6bb7f84;p=Rakka.git

diff --git a/Rakka/Page.hs b/Rakka/Page.hs
index 62606b3..6d3dff0 100644
--- a/Rakka/Page.hs
+++ b/Rakka/Page.hs
@@ -20,6 +20,7 @@ module Rakka.Page
     , mkObjectURI
     , mkFragmentURI
     , mkAuxiliaryURI
+    , mkRDFURI
     , mkRakkaURI
 
     , xmlizePage
@@ -181,6 +182,13 @@ mkAuxiliaryURI baseURI basePath name
       }
 
 
+mkRDFURI :: URI -> PageName -> URI
+mkRDFURI baseURI name
+    = baseURI {
+        uriPath = foldl (</>) "/" [uriPath baseURI, encodePageName name ++ ".rdf"]
+      }
+
+
 mkRakkaURI :: PageName -> URI
 mkRakkaURI name = URI {
                     uriScheme    = "rakka:"