summaryrefslogtreecommitdiff
path: root/lib/ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2014-11-16 14:02:17 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2014-11-16 14:02:17 -0500
commitcd1df17a1dac04f2a353fbc49284b775e78817a5 (patch)
treead2ce8905273af5770bd7217b18c7bb50be994e7 /lib/ur
parentff35b4cbd8c62fed584b48f660e4274c6e357893 (diff)
Make 'required' and 'autofocus' attributes Boolean; add a syntax extension for parsing their usual HTML syntax
Diffstat (limited to 'lib/ur')
-rw-r--r--lib/ur/basis.urs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 170df50c..049d1864 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -949,7 +949,7 @@ con formTag = fn (ty :: Type) (inner :: {Unit}) (attrs :: {Type}) =>
nm :: Name -> unit
-> tag attrs ([Form] ++ ctx) inner [] [nm = ty]
-con inputAttrs = [Required = string, Autofocus = string]
+con inputAttrs = [Required = bool, Autofocus = bool]
val hidden : formTag string [] [Data = data_attr, Id = string, Value = string]