implemented feed generator

[Rakka.git] / Rakka / Page.hs

diff --git a/Rakka/Page.hs b/Rakka/Page.hs
index 62606b35af111daa344d37d738dfabd4aa273172..6d3dff0bdb927ff15c863fd165ed49197b10dc4d 100644 (file)
--- 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:"