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

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

@ -679,7 +679,7 @@ 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''