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