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

Fix comments

Browse Source
This commit is contained in:
Jakob Schöttl 2021-04-13 22:16:29 +02:00
parent 829b5af62c
commit 2998849e99
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

@ -679,14 +679,14 @@ optionsPairsGrouped opts = do
, optionInternalValue = internal , optionInternalValue = internal
, optionExternalValue = pack $ show external , 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' opts'' = map (\(x, ys) -> (mr x, map mkOption ys)) opts'
return $ mkOptionListGrouped opts'' return $ mkOptionListGrouped opts''
-- | Helper to enumerate sublists with one consecutive index. -- | Helper to enumerate sublists with one consecutive index.
enumerateSublists :: [(a, [b])] -> [(a, [(Int, b)])] enumerateSublists :: [(a, [b])] -> [(a, [(Int, b)])]
enumerateSublists xss = 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 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 in map (\(i, (x, ys)) -> (x, zip [i :: Int ..] ys)) yss