From e22b81793e4ccc66b27748c677fcef12e211593f Mon Sep 17 00:00:00 2001 From: Andrew Martin Date: Mon, 19 Oct 2015 12:33:30 -0400 Subject: [PATCH] Add instance documentation and bump version number --- yesod-form/Yesod/Form/Types.hs | 4 ++++ yesod-form/yesod-form.cabal | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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