From b51b57d44566ca0529a2fbee7ca0711828946599 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 20 Oct 2015 05:28:06 +0000 Subject: [PATCH] Modify version bump for #1089 --- yesod-form/ChangeLog.md | 4 ++++ yesod-form/Yesod/Form/Types.hs | 4 ++-- yesod-form/yesod-form.cabal | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) 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