From 0dcc9e2b2978f85e33509f8365336f26aca13160 Mon Sep 17 00:00:00 2001
From: Axel Angel <axel@james-b.ch>
Date: Sun, 22 Sep 2013 15:08:21 +0200
Subject: [PATCH] Simplify in checkboxesField{,List}: no intermediate selOpts
 list

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

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index c8d0e368..b8109dfb 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -403,12 +403,11 @@ checkboxesField ioptlist = (multiSelectField ioptlist)
             opts <- fmap olOptions $ handlerToWidget ioptlist
             let optselected (Left _) _ = False
                 optselected (Right vals) opt = (optionInternalValue opt) `elem` vals
-            let selOpts = map (id &&& (optselected val)) opts
             [whamlet|
                 <span ##{theId}>
-                    $forall (opt, optsel) <- selOpts
+                    $forall opt <- opts
                         <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}
                 |]
     }