From d8bdcae2d54f33aa6a28496ba460d8df00e0f521 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 11 Dec 2013 18:56:48 +0200
Subject: [PATCH] Add required attribute for radio fields and selects #628

---
 yesod-form/Yesod/Form/Fields.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index 0689859f..b2a47c69 100644
--- 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)