basic authorization support

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

diff --git a/Rakka/Resource/PageEntity.hs b/Rakka/Resource/PageEntity.hs
index 1ad3ffaf5c782b6b543497ec3b682ba600c0a93f..8f63bbaad3b9c6f68748530ccc261cd68c0bb5d2 100644 (file)
--- a/Rakka/Resource/PageEntity.hs
+++ b/Rakka/Resource/PageEntity.hs
@@ -306,13 +306,15 @@ notFoundToXHTML env
 
 handlePut :: Environment -> PageName -> Resource ()
 handlePut env name
-    = runXmlA env "rakka-page-1.0.rng" $ proc tree
-    -> do page   <- parseXmlizedPage -< (name, tree)
-          status <- putPageA (envStorage env) -< page
-          returnA  -< setStatus status
+    = do userID <- getUserID env
+         runXmlA env "rakka-page-1.0.rng" $ proc tree
+             -> do page   <- parseXmlizedPage -< (name, tree)
+                   status <- putPageA (envStorage env) -< (userID, page)
+                   returnA  -< setStatus status
 
 
 handleDelete :: Environment -> PageName -> Resource ()
 handleDelete env name
-    = do status <- deletePage (envStorage env) name
+    = do userID <- getUserID env
+         status <- deletePage (envStorage env) userID name
          setStatus status