Wrote more...

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

diff --git a/Rakka/Resource/PageEntity.hs b/Rakka/Resource/PageEntity.hs
index 3c00612809ce2910e22abf421b3247d9c372fbe9..32a4a6155698b4a62152eb19e459eee7f41620db 100644 (file)
--- a/Rakka/Resource/PageEntity.hs
+++ b/Rakka/Resource/PageEntity.hs
@@ -37,7 +37,7 @@ fallbackPageEntity env path
           , resGet              = Just $ handleGet env (toPageName path)
           , resHead             = Nothing
           , resPost             = Nothing
-          , resPut              = Nothing
+          , resPut              = Just $ handlePut env (toPageName path)
           , resDelete           = Nothing
           }
     where
@@ -269,3 +269,10 @@ notFoundToXHTML env
                          )
                     )
                ) ) -<< pageNotFound
+
+
+handlePut :: Environment -> PageName -> Resource ()
+handlePut env name
+    = do xml <- input defaultLimit
+         setContentType $ read "text/xml"
+         output xml