From a7c0523b9e2d6fcc0ff25f1fac48aba435599a8a Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Fri, 10 Dec 2004 06:59:55 +0000
Subject: [PATCH] small changes

---
 Main.hs | 13 +++++++------
 Wiki.hs |  4 ++++
 2 files changed, 11 insertions(+), 6 deletions(-)

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
diff --git a/Wiki.hs b/Wiki.hs
index f2a68f2..dee41a1 100644
--- a/Wiki.hs
+++ b/Wiki.hs
@@ -80,11 +80,15 @@ pText = do
 	return (Text t)
 
 validChar ',' = True
+validChar ';' = True
 validChar '.' = True
+validChar ':' = True
 validChar '!' = True
 validChar '?' = True
 validChar '[' = True
 validChar ']' = True
+validChar '(' = True
+validChar ')' = True
 validChar '\'' = True
 validChar '"' = True
 validChar '=' = True
-- 
2.39.2