diff --git a/yesod-form/ChangeLog.md b/yesod-form/ChangeLog.md index 7c465ccb..0eaefa31 100644 --- a/yesod-form/ChangeLog.md +++ b/yesod-form/ChangeLog.md @@ -1,3 +1,7 @@ +## 1.4.5 + +* Foldable/Traversable instances for FormResult [#1089](https://github.com/yesodweb/yesod/pull/1089) + ## 1.4.4.1 * runFormPost has wrong behavior for empty forms [#950](https://github.com/yesodweb/yesod/issues/950) diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs index 593d3277..543419fa 100644 --- a/yesod-form/Yesod/Form/Types.hs +++ b/yesod-form/Yesod/Form/Types.hs @@ -64,14 +64,14 @@ instance Monoid m => Monoid (FormResult m) where instance Semigroup m => Semigroup (FormResult m) where x <> y = (<>) <$> x <*> y --- | Since 1.4.4.2 +-- | @since 1.4.5 instance Foldable FormResult where foldMap f r = case r of FormSuccess a -> f a FormFailure errs -> mempty FormMissing -> mempty --- | Since 1.4.4.2 +-- | @since 1.4.5 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 61ba8242..dd15539e 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.4.4.2 +version: 1.4.5 license: MIT license-file: LICENSE author: Michael Snoyman