X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=Rakka%2FStorage%2FDefaultPage.hs;h=8e79a6dbc9470062677d8a2a1a64e2d8e9aa930c;hb=e2fd35989e9765281523fd4ce05dcd0199bdbbad;hp=46fda3ac636b45032fc89a5419b09292427f238e;hpb=7a4f13a3d483c950743e1ced001ade4406d239d3;p=Rakka.git

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