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

Simplify in checkboxesField{,List}: no intermediate selOpts list

Browse Source
This commit is contained in:
Axel Angel 2013-09-22 15:08:21 +02:00
parent a3bef1bc2b
commit 0dcc9e2b29
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -403,12 +403,11 @@ checkboxesField ioptlist = (multiSelectField ioptlist)
opts <- fmap olOptions $ handlerToWidget ioptlist opts <- fmap olOptions $ handlerToWidget ioptlist
let optselected (Left _) _ = False let optselected (Left _) _ = False
optselected (Right vals) opt = (optionInternalValue opt) `elem` vals optselected (Right vals) opt = (optionInternalValue opt) `elem` vals
let selOpts = map (id &&& (optselected val)) opts
[whamlet| [whamlet|
<span ##{theId}> <span ##{theId}>
$forall (opt, optsel) <- selOpts $forall opt <- opts
<label> <label>
<input type=checkbox name=#{name} value=#{optionExternalValue opt} *{attrs} :optsel:checked> <input type=checkbox name=#{name} value=#{optionExternalValue opt} *{attrs} :optselected val opt:checked>
#{optionDisplay opt} #{optionDisplay opt}
|] |]
} }