From 2998849e9919b7d031de236e87d3a052abf2a225 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jakob=20Sch=C3=B6ttl?= <jschoett@gmail.com>
Date: Tue, 13 Apr 2021 22:16:29 +0200
Subject: [PATCH] Fix comments

---
 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 91fb487c..0f957054 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -679,14 +679,14 @@ optionsPairsGrouped opts = do
                  , optionInternalValue = internal
                  , optionExternalValue = pack $ show external
                  }
-      opts' = enumerateSublists opts -- :: [(grp, [(Int, (msg, a))])]
+      opts' = enumerateSublists opts -- :: [(msg, [(Int, (msg, a))])]
       opts'' = map (\(x, ys) -> (mr x, map mkOption ys)) opts'
   return $ mkOptionListGrouped opts''
 
 -- | Helper to enumerate sublists with one consecutive index.
 enumerateSublists :: [(a, [b])] -> [(a, [(Int, b)])]
 enumerateSublists xss =
-  let --yss :: [(Int, (a, [b]))]
+  let -- yss :: [(Int, (a, [b]))]
       yss = snd $ foldl (\(i, res) xs -> (i + (length.snd) xs, res ++ [(i, xs)])) (1, []) xss
    in map (\(i, (x, ys)) -> (x, zip [i :: Int ..] ys)) yss