haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Put attributes on <select>, not <option>

Browse Source
This commit is contained in:
Michael Snoyman 2012-10-24 17:33:57 +02:00
parent 78ef9ae7d0
commit f8497c3a22
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-form/Yesod/Form/Fields.hs
View File

@ -329,7 +329,7 @@ selectField :: (Eq a, RenderMessage master FormMessage) => GHandler sub master (
selectField = selectFieldHelper selectField = selectFieldHelper
(\theId name inside -> [whamlet| (\theId name inside -> [whamlet|
$newline never $newline never
<select ##{theId} name=#{name}>^{inside} <select ##{theId} name=#{name} *{attrs}>^{inside}
|]) -- outside |]) -- outside
(\_theId _name isSel -> [whamlet| (\_theId _name isSel -> [whamlet|
$newline never $newline never
@ -337,7 +337,7 @@ $newline never
|]) -- onOpt |]) -- onOpt
(\_theId _name attrs value isSel text -> [whamlet| (\_theId _name attrs value isSel text -> [whamlet|
$newline never $newline never
<option value=#{value} :isSel:selected *{attrs}>#{text} <option value=#{value} :isSel:selected>#{text}
|]) -- inside |]) -- inside
multiSelectFieldList :: (Eq a, RenderMessage master FormMessage, RenderMessage master msg) => [(msg, a)] -> Field sub master [a] multiSelectFieldList :: (Eq a, RenderMessage master FormMessage, RenderMessage master msg) => [(msg, a)] -> Field sub master [a]