Add required attribute for radio fields and selects #628

This commit is contained in:
Michael Snoyman 2013-12-11 18:56:48 +02:00
parent 62da244763
commit d8bdcae2d5

View File

@ -587,7 +587,7 @@ selectFieldHelper outside onOpt inside opts' = Field
flip mapM_ opts $ \opt -> inside flip mapM_ opts $ \opt -> inside
theId theId
name name
attrs ((if isReq then (("required", "required"):) else id) attrs)
(optionExternalValue opt) (optionExternalValue opt)
((render opts val) == optionExternalValue opt) ((render opts val) == optionExternalValue opt)
(optionDisplay opt) (optionDisplay opt)