Fix implementation of instance Functor OptionList

2021-04-13 21:58:33 +02:00 · 2021-04-13 21:58:33 +02:00 · 829b5af62c
commit 829b5af62c
parent 993de7fa86
1 changed files with 3 additions and 1 deletions
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@ -627,8 +627,10 @@ flattenOptionList ol = ol

 -- | Since 1.4.6
 instance Functor OptionList where
-    fmap f (OptionList options readExternal) = 
+    fmap f (OptionList options readExternal) =
      OptionList ((fmap.fmap) f options) (fmap f . readExternal)
+    fmap f (OptionListGrouped options readExternal) =
+      OptionListGrouped (map (\(g, os) -> (g, (fmap.fmap) f os)) options) (fmap f . readExternal)

 -- | Creates an 'OptionList', using a 'Map' to implement the 'olReadExternal' function.
 mkOptionList :: [Option a] -> OptionList a