diff options
| -rw-r--r-- | lib/ur/basis.urs | 2 | ||||
| -rw-r--r-- | tests/html5_forms.ur | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 049d1864..2f523a20 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -960,7 +960,7 @@ val email : formTag string [] ([Value = string, Size = int, Placeholder = string val textarea : formTag string [] ([Rows = int, Cols = int, Onchange = transaction unit, Ontext = transaction unit] ++ boxAttrs ++ inputAttrs) -val checkbox : formTag bool [] ([Checked = bool, Onchange = transaction unit, Value = string] ++ boxAttrs) +val checkbox : formTag bool [] ([Checked = bool, Onchange = transaction unit] ++ boxAttrs) type file val fileName : file -> option string diff --git a/tests/html5_forms.ur b/tests/html5_forms.ur index 2fa5c5c2..435e4ada 100644 --- a/tests/html5_forms.ur +++ b/tests/html5_forms.ur @@ -1,4 +1,7 @@ fun handler r = return <xml><body> + A: {[r.A]}<br/> + B: {[r.B]}<br/> + C: {[r.C]}<br/> </body></xml> fun main () = @@ -6,6 +9,7 @@ fun main () = <form> <textbox{#A} required placeholder="bobby"/> <textbox{#B} placeholder="soggy" autofocus/> + <checkbox{#C}/> <submit action={handler}/> </form> |