I'm getting tired so I must have a rest.

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

diff --git a/Rakka/Resource/Page.hs b/Rakka/Resource/Page.hs
index 8077c4fbab1dcef1dc77da8608e654e70766eb57..c72cf88b91ccc52088b03f4530729ed67671ce67 100644 (file)
--- a/Rakka/Resource/Page.hs
+++ b/Rakka/Resource/Page.hs
@@ -5,7 +5,10 @@ module Rakka.Resource.Page
 
 import           Data.Char
 import           Network.HTTP.Lucu
+import           Network.HTTP.Lucu.Utils
 import           Rakka.Environment
+import           Rakka.Page
+import           Rakka.Resource.Page.Get
 
 
 fallbackPage :: Environment -> [String] -> IO (Maybe ResourceDef)
@@ -17,21 +20,21 @@ fallbackPage env path
         = return $ Just $ ResourceDef {
             resUsesNativeThread = False
           , resIsGreedy         = True
-          , resGet              = Just $ handleGet env path
+          , resGet              = Just $ handleGet env (toPageName path)
           , resHead             = Nothing
           , resPost             = Nothing
-          , resPut              = Just $ handlePut env path
-          , resDelete           = Just $ handleDelete env path
+          , resPut              = Just $ handlePut env (toPageName path)
+          , resDelete           = Just $ handleDelete env (toPageName path)
           }
 
 
-handleGet :: Environment -> [String] -> Resource ()
-handleGet = fail "FIXME: not implemented"
+toPageName :: [String] -> PageName
+toPageName = decodePageName . joinWith "/" 
 
 
-handlePut :: Environment -> [String] -> Resource ()
+handlePut :: Environment -> PageName -> Resource ()
 handlePut = fail "FIXME: not implemented"
 
 
-handleDelete :: Environment -> [String] -> Resource ()
+handleDelete :: Environment -> PageName -> Resource ()
 handleDelete = fail "FIXME: not implemented"