summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2014-11-16 14:06:24 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2014-11-16 14:06:24 -0500
commit17a277b007b8e545760837b1871d36df0e9deaea (patch)
tree4d3d2d3181ebe9df7002fcec5bde69fe42105ff9
parentcd1df17a1dac04f2a353fbc49284b775e78817a5 (diff)
Remove 'value' attribute of <checkbox>
-rw-r--r--lib/ur/basis.urs2
-rw-r--r--tests/html5_forms.ur4
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>