[Fencommits] fenserve: make editing work right

[Benja Fallenstein]

Sun Mar 25 23:23:39 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * make editing work right
diff -rN -u old-fenserve/board-demo.page new-fenserve/board-demo.page
--- old-fenserve/board-demo.page	2007-03-25 23:23:56.000000000 +0300
+++ new-fenserve/board-demo.page	2007-03-25 23:23:56.000000000 +0300
@@ -120,12 +120,12 @@
 editHandler :: (?graph :: Graph, ?req :: Request) => Handler
 editHandler req = do
     let time = unsafeGetW3CTime ()
-    let f = lit . g; g = fromMaybe "" . lookM ?req
+    let f = lit . g; g = fromMaybe "" . lookM ?req; p = IRI $ g "post"
         graph' = foldr Fenfire.RDF.update ?graph $ [
-            (post, dc_title, f "title"),
-            (post, dc_creator, f "author"),
-            (post, content_encoded, f "content"),
-            (post, dcterms_modified, time)]
+            (p, dc_title, f "title"),
+            (p, dc_creator, f "author"),
+            (p, content_encoded, f "content"),
+            (p, dcterms_modified, time)]
     bid <- writeGraph graph'
     putEntry ["testdata","blog"] $ FileEntry $ bIRI bid
     pageHandler (let ?graph = graph' in renderBoard blog) ?req