X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=blobdiff_plain;f=Main.hs;h=05414b4f3ec15786ccd05f14d094f5ce63b5287a;hp=471fee40b9b45dc439b1acf8a5851ef2b4e1495b;hb=a7c0523b9e2d6fcc0ff25f1fac48aba435599a8a;hpb=0faacae411100c8ba6606c22a453bff6a5517a11

diff --git a/Main.hs b/Main.hs
index 471fee4..05414b4 100644
--- a/Main.hs
+++ b/Main.hs
@@ -26,9 +26,11 @@ editPage db key = do
 		Just (x,_) -> return x
 	standardQuery key $ do
 		t <- p $ makeTextarea s' (attr_SS "rows" "10" ## attr_SS "cols" "75" ## attr_SS "colspan" "2")
-		p (text "Author: ") 
+		p empty
+		text "Author: "
 		a <- textInputField (fieldSIZE 20)
-		p (text "Comment: ") 
+		p empty
+		text "Comment: "
 		c <- textInputField (fieldSIZE 20)
 		--p $ submit (F2 t a) testing (attr "value" "Send")
 		p $ defaultSubmit (F3 t a c) (savePage db key) (attr "value" "Send")
@@ -39,11 +41,10 @@ sp db key _ = do
 	standardQuery key $ showPage db key s
 
 savePage db key (F3 t a c) = do
-	s <- io $ update db key fulltext author comment
+	io $ update db key fulltext author comment
+	s <- io $ getCurrent db key 
 	standardQuery key $ do
-	text "Updated with revision: "
-	text s
-	address (hlink (URL {unURL = ("wiki?"++key)}) (text "Back to keyword") )
+		showPage db key s
   where
   	fulltext = value t
 	author = value a