X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FPage.hs;h=fdc622090771c780656cd80adac2548eaf9efc4d;hp=c22e5206583c819facd8baab5ec437a4038d60a7;hb=1647278f9393f7382b6e8b8a5e9e14ce50aae718;hpb=8a7556db44cd91ac0bb52279472bcc2abaa3f18e

diff --git a/Rakka/Page.hs b/Rakka/Page.hs
index c22e520..fdc6220 100644
--- 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 {