Add required attribute for radio fields and selects #628

2013-12-11 18:56:48 +02:00 · 2013-12-11 18:56:48 +02:00 · d8bdcae2d5
commit d8bdcae2d5
parent 62da244763
1 changed files with 1 additions and 1 deletions
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@ -587,7 +587,7 @@ selectFieldHelper outside onOpt inside opts' = Field
            flip mapM_ opts $ \opt -> inside
                theId
                name
-                attrs
+                ((if isReq then (("required", "required"):) else id) attrs)
                (optionExternalValue opt)
                ((render opts val) == optionExternalValue opt)
                (optionDisplay opt)