Mercurial > urweb
diff lib/basis.urs @ 422:0ce90d4d9ae7
Crud2 demo
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 23 Oct 2008 18:45:10 -0400 |
| parents | e0e9e9eca1cb |
| children | 024478c34f4d |
line wrap: on
line diff
--- a/lib/basis.urs Thu Oct 23 18:18:51 2008 -0400 +++ b/lib/basis.urs Thu Oct 23 18:45:10 2008 -0400 @@ -18,6 +18,7 @@ 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 @@ 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] =>