X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FResource%2FPageEntity.hs;h=4515a4d49e99eefd9b411b929cc20a21c4190d73;hp=19e9768f7bd02e92039b85e6cf2ea4fc4438edec;hb=e2fd35989e9765281523fd4ce05dcd0199bdbbad;hpb=7a4f13a3d483c950743e1ced001ade4406d239d3

diff --git a/Rakka/Resource/PageEntity.hs b/Rakka/Resource/PageEntity.hs
index 19e9768..4515a4d 100644
--- a/Rakka/Resource/PageEntity.hs
+++ b/Rakka/Resource/PageEntity.hs
@@ -269,7 +269,6 @@ notFoundToXHTML env
 
 
 handlePut :: Environment -> PageName -> Resource ()
-handlePut _env _name
-    = do xml <- input defaultLimit
-         setContentType $ read "text/xml"
-         output xml
+handlePut env name
+    = runXmlA env "rakka-page-1.0.rng" $ proc tree
+    -> returnA -< do setStatus Created