diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs index 3f3d7192..593d3277 100644 --- a/yesod-form/Yesod/Form/Types.hs +++ b/yesod-form/Yesod/Form/Types.hs @@ -63,11 +63,15 @@ instance Monoid m => Monoid (FormResult m) where mappend x y = mappend <$> x <*> y instance Semigroup m => Semigroup (FormResult m) where x <> y = (<>) <$> x <*> y + +-- | Since 1.4.4.2 instance Foldable FormResult where foldMap f r = case r of FormSuccess a -> f a FormFailure errs -> mempty FormMissing -> mempty + +-- | Since 1.4.4.2 instance Traversable FormResult where traverse f r = case r of FormSuccess a -> fmap FormSuccess (f a) diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index 7849763e..61ba8242 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.4.4.1 +version: 1.4.4.2 license: MIT license-file: LICENSE author: Michael Snoyman