summaryrefslogtreecommitdiff
path: root/lib/basis.urs
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-10-23 18:45:10 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-10-23 18:45:10 -0400
commitb887dcf43ab2e92d31eaead41398c639fe36edd5 (patch)
tree6d1b3b0450e7d90ffb86bc43ce2c479ba9b7c78f /lib/basis.urs
parenta6eb484bd588045d401e61fed64fac553e0e3395 (diff)
Crud2 demo
Diffstat (limited to 'lib/basis.urs')
-rw-r--r--lib/basis.urs3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/basis.urs b/lib/basis.urs
index a8c81353..fce29ff9 100644
--- a/lib/basis.urs
+++ b/lib/basis.urs
@@ -18,6 +18,7 @@ val eq_int : eq int
val eq_float : eq float
val eq_string : eq string
val eq_bool : eq bool
+val mkEq : t ::: Type -> (t -> t -> bool) -> eq t
class num
val zero : t ::: Type -> num t -> t
@@ -365,7 +366,7 @@ val radioOption : unit -> tag [Value = string] radio [] [] []
con select = [Select]
val select : formTag string select []
-val option : unit -> tag [Value = string] select [] [] []
+val option : unit -> tag [Value = string, Selected = bool] select [] [] []
val submit : ctx ::: {Unit} -> use ::: {Type}
-> fn [[Form] ~ ctx] =>