Added suffixes to each page files

[Rakka.git] / Rakka / Storage / Repos.hs

diff --git a/Rakka/Storage/Repos.hs b/Rakka/Storage/Repos.hs
index 3b7fe542804fe5b0dd9c74d82fcfd786075986d3..d42fdb90bd3c46ac28bc0aeee9989c528e36fe0b 100644 (file)
--- a/Rakka/Storage/Repos.hs
+++ b/Rakka/Storage/Repos.hs
@@ -51,7 +51,7 @@ findAllPagesInRevision repos rev
                    DirNode  -> traverse path
 
       decodePath :: FilePath -> PageName
-      decodePath = decodePageName . makeRelative root
+      decodePath = decodePageName . makeRelative root . dropExtension
 
 
 loadPageInRepository :: Repository -> PageName -> Maybe RevNum -> IO (Maybe Page)
@@ -69,7 +69,7 @@ loadPageInRepository repos name rev
                         -> return Nothing
     where
       path :: FilePath
-      path = "pages" </> encodePageName name
+      path = "pages" </> (encodePageName name `addExtension` "page")
 
       loadPage' :: Rev Page
       loadPage' = do redirect <- getNodeProp path "rakka:redirect"