Mercurial > urweb

diff lib/basis.lig @ 142:6f9e224692ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Form submission type-checking
author Adam Chlipala <adamc@hcoop.net>
date Sun, 20 Jul 2008 12:21:30 -0400
parents 63c699450281
children 15e8b9775539
line wrap: on
line diff
--- a/lib/basis.lig	Sun Jul 20 11:33:23 2008 -0400
+++ b/lib/basis.lig	Sun Jul 20 12:21:30 2008 -0400
@@ -63,3 +63,7 @@
         -> nm :: Name -> unit
         -> tag attrs ([LForm] ++ ctx) [] [] [nm = ty]
 val textbox : lformTag string []
+
+val submit : ctx ::: {Unit} -> [LForm] ~ ctx
+        -> use ::: {Type} -> unit
+        -> tag [Action = $use -> page] ([LForm] ++ ctx) ([LForm] ++ ctx) use []