diff options
author | Adam Chlipala <adam@chlipala.net> | 2014-11-16 14:06:24 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2014-11-16 14:06:24 -0500 |
commit | 17a277b007b8e545760837b1871d36df0e9deaea (patch) | |
tree | 4d3d2d3181ebe9df7002fcec5bde69fe42105ff9 | |
parent | cd1df17a1dac04f2a353fbc49284b775e78817a5 (diff) |
Remove 'value' attribute of <checkbox>
-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> |