From 411547157fb221f10c8620e2a92efe8e5219e82d Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Sat, 11 Dec 2004 15:12:01 +0000 Subject: [PATCH] using table for footer --- Main.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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 -- 2.39.2