diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-10-21 17:30:06 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-21 17:30:06 -0400 |
commit | d4e5d7bbce0aac719ac2c6451e0a6bfb675ab641 (patch) | |
tree | 5f06bbcd006f618093f9483a42e3e642ee9ea91c /lib/basis.urs | |
parent | 5411e88620c19474569ce7c2280235beaa6cd1f5 (diff) |
Form example
Diffstat (limited to 'lib/basis.urs')
-rw-r--r-- | lib/basis.urs | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index de4204b3..212cccc6 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -366,15 +366,19 @@ val option : unit -> tag [Value = string] select [] [] [] val submit : ctx ::: {Unit} -> use ::: {Type} -> fn [[Form] ~ ctx] => unit - -> tag [Action = $use -> transaction page] + -> tag [Value = string, Action = $use -> transaction page] ([Form] ++ ctx) ([Form] ++ ctx) use [] (*** Tables *) -val tabl : unit -> tag [Border = int] [Body] [Body, Table] [] [] -val tr : unit -> tag [] [Body, Table] [Body, Tr] [] [] -val th : unit -> tag [] [Body, Tr] [Body] [] [] -val td : unit -> tag [] [Body, Tr] [Body] [] [] +val tabl : other ::: {Unit} -> fn [other ~ [Body, Table]] => + unit -> tag [Border = int] ([Body] ++ other) ([Body, Table] ++ other) [] [] +val tr : other ::: {Unit} -> fn [other ~ [Body, Table, Tr]] => + unit -> tag [] ([Body, Table] ++ other) ([Body, Tr] ++ other) [] [] +val th : other ::: {Unit} -> fn [other ~ [Body, Tr]] => + unit -> tag [] ([Body, Tr] ++ other) ([Body] ++ other) [] [] +val td : other ::: {Unit} -> fn [other ~ [Body, Tr]] => + unit -> tag [] ([Body, Tr] ++ other) ([Body] ++ other) [] [] (** Aborting *) |