db <- testDB
runWithHook [] (\(key:act) -> showPage db (filter (/= '\\') key)) $ showPage db "MainPage"
-ps a = standardQuery "Hello" a
-
editPage db key = do
s <- io $ getCurrent db key
s' <- case s of
p empty
text "Comment: "
c <- textInputField (fieldSIZE 20)
- --p $ submit (F2 t a) testing (attr "value" "Send")
p $ defaultSubmit (F3 t a c) (savePage db key) (attr "value" "Send")
- --submit0 (sp db key []) (attr "value" "Send1")
-
savePage db key (F3 t a c) = do
io $ update db key fulltext author comment