From f8497c3a22d9c4534bc051d43e032095557f95a9 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 24 Oct 2012 17:33:57 +0200
Subject: [PATCH] Put attributes on <select>, not <option>

---
 yesod-form/Yesod/Form/Fields.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index 43257b8c..1acb3ecb 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -329,7 +329,7 @@ selectField :: (Eq a, RenderMessage master FormMessage) => GHandler sub master (
 selectField = selectFieldHelper
     (\theId name inside -> [whamlet|
 $newline never
-<select ##{theId} name=#{name}>^{inside}
+<select ##{theId} name=#{name} *{attrs}>^{inside}
 |]) -- outside
     (\_theId _name isSel -> [whamlet|
 $newline never
@@ -337,7 +337,7 @@ $newline never
 |]) -- onOpt
     (\_theId _name attrs value isSel text -> [whamlet|
 $newline never
-<option value=#{value} :isSel:selected *{attrs}>#{text}
+<option value=#{value} :isSel:selected>#{text}
 |]) -- inside
 
 multiSelectFieldList :: (Eq a, RenderMessage master FormMessage, RenderMessage master msg) => [(msg, a)] -> Field sub master [a]