Implemented findChangedPagesAtRevision

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

diff --git a/Rakka/Storage/DefaultPage.hs b/Rakka/Storage/DefaultPage.hs
index de1e3a1321029aa3dcd19b7a72dd373f53651068..73f4e3307cf4962605b69c66d5fede9a0980d975 100644 (file)
--- a/Rakka/Storage/DefaultPage.hs
+++ b/Rakka/Storage/DefaultPage.hs
@@ -56,7 +56,7 @@ loadDefaultPage :: PageName -> IO (Maybe Page)
 loadDefaultPage name
     -- ./defaultPages が存在するなら、./defaultPages/Foo.xml を探す。無
     -- ければ Cabal で defaultPages/Foo.xml を探す。
-    = do let pagePath = "defaultPages" </> (encodePageName name `addExtension` "xml")
+    = do let pagePath = "defaultPages" </> encodePageName name <.> "xml"
 
          localDirExists <- doesLocalDirExist
          if localDirExists then