Mercurial > urweb
diff lib/ur/basis.urs @ 2075:fde864eacd47
Make 'required' and 'autofocus' attributes Boolean; add a syntax extension for parsing their usual HTML syntax
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 16 Nov 2014 14:02:17 -0500 |
parents | e48e09a1f583 |
children | 855d7746a084 |
line wrap: on
line diff
--- a/lib/ur/basis.urs Sun Oct 12 10:03:36 2014 +0000 +++ b/lib/ur/basis.urs Sun Nov 16 14:02:17 2014 -0500 @@ -949,7 +949,7 @@ 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]