main = do
db <- testDB
- runWithHook [] (\(key:act) -> sp db key act ) $ sp db "MainPage" []
+ runWithHook [] (\(key:act) -> sp db key) $ sp db "MainPage"
ps a = standardQuery "Hello" a
p $ defaultSubmit (F3 t a c) (savePage db key) (attr "value" "Send")
--submit0 (sp db key []) (attr "value" "Send1")
-sp db key _ = do
+sp db key = do
s <- io $ getCurrent db key
standardQuery key $ showPage db key s
footer db key = do
hr empty
- submit0 (editPage db key) (attr "value" "Edit")
+ 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")
ex [] = return ()