Slightly improved something...

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

diff --git a/Rakka/Storage/DefaultPage.hs b/Rakka/Storage/DefaultPage.hs
index 46fda3ac636b45032fc89a5419b09292427f238e..8e79a6dbc9470062677d8a2a1a64e2d8e9aa930c 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 を探す。無けれ
     -- ば Cabal で defaultPages/Foo を探す。
-    = do let pagePath = "defaultPages/" ++ encodePageName name
+    = do let pagePath = "defaultPages" </> encodePageName name
 
          localDirExists <- doesLocalDirExist
          if localDirExists then