wrote much code...

[Rakka.git] / Rakka / Resource / Page.hs

diff --git a/Rakka/Resource/Page.hs b/Rakka/Resource/Page.hs
index c72cf88b91ccc52088b03f4530729ed67671ce67..6d8c7d52312facf1ee629c0d00d21c3f3fc8a48c 100644 (file)
--- a/Rakka/Resource/Page.hs
+++ b/Rakka/Resource/Page.hs
@@ -9,6 +9,7 @@ import           Network.HTTP.Lucu.Utils
 import           Rakka.Environment
 import           Rakka.Page
 import           Rakka.Resource.Page.Get
+import           System.FilePath
 
 
 fallbackPage :: Environment -> [String] -> IO (Maybe ResourceDef)
@@ -26,10 +27,9 @@ fallbackPage env path
           , resPut              = Just $ handlePut env (toPageName path)
           , resDelete           = Just $ handleDelete env (toPageName path)
           }
-
-
-toPageName :: [String] -> PageName
-toPageName = decodePageName . joinWith "/" 
+    where
+      toPageName :: [String] -> PageName
+      toPageName = decodePageName . dropExtension . joinWith "/"
 
 
 handlePut :: Environment -> PageName -> Resource ()