using table for footer

diff --git a/Main.hs b/Main.hs
index a52b038feac63fd30f837288f8ef7dee9be66449..b261901b66d582807a39efe272dd658d9d40b4e2 100644 (file)
--- 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