From: Michael Andreen <harv@ruin.nu>
Date: Sat, 11 Dec 2004 15:12:01 +0000 (+0000)
Subject: using table for footer
X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=commitdiff_plain;h=411547157fb221f10c8620e2a92efe8e5219e82d

using table for footer
---

diff --git a/Main.hs b/Main.hs
index a52b038..b261901 100644
--- a/Main.hs
+++ b/Main.hs
@@ -65,10 +65,9 @@ showPage db key s = do
 
 footer db key = do
 	hr empty
-	submitLink0 (editPage db key) (text "Edit this page")
-	text " Keyword: "
-	activate (sp db) textInputField empty
-	--address (hlink (URL {unURL = ("wiki?"++key++"+edit")}) (text "Edit this page") 
+	table $ tr $ do
+		td $ submitLink0 (editPage db key) (text "Edit this page")
+		td $ text "Keyword: " >> activate (sp db) textInputField empty
 
 ex [] = return ()
 ex ((Paragraph):xs) = do