wrote more...

[Rakka.git] / Rakka / Page.hs

diff --git a/Rakka/Page.hs b/Rakka/Page.hs
index c22e5206583c819facd8baab5ec437a4038d60a7..fdc622090771c780656cd80adac2548eaf9efc4d 100644 (file)
--- a/Rakka/Page.hs
+++ b/Rakka/Page.hs
@@ -4,6 +4,7 @@ module Rakka.Page
     , encodePageName
     , decodePageName
     , mkPageURI
+    , mkPageFragmentURI
     , mkObjectURI
     )
     where
@@ -67,6 +68,14 @@ mkPageURI baseURI name
       }
 
 
+mkPageFragmentURI :: URI -> PageName -> String -> URI
+mkPageFragmentURI baseURI name fragment
+    = baseURI {
+        uriPath     = foldl combine "/" [uriPath baseURI, encodePageName name]
+      , uriFragment = ('#':fragment)
+      }
+
+
 mkObjectURI :: URI -> PageName -> URI
 mkObjectURI baseURI name
     = baseURI {