X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FResource%2FPage.hs;h=6d8c7d52312facf1ee629c0d00d21c3f3fc8a48c;hp=c72cf88b91ccc52088b03f4530729ed67671ce67;hb=885faf1cabc3f79c90e1885268e2a9138b1ddefb;hpb=03585f9c5773f6c0b59497f4f563909576c402b5

diff --git a/Rakka/Resource/Page.hs b/Rakka/Resource/Page.hs
index c72cf88..6d8c7d5 100644
--- 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 ()