haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add instance documentation and bump version number

Browse Source
This commit is contained in:
Andrew Martin 2015-10-19 12:33:30 -04:00
parent a225d3d680
commit e22b81793e
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-form/Yesod/Form/Types.hs
View File

@ -63,11 +63,15 @@ instance Monoid m => Monoid (FormResult m) where
mappend x y = mappend <$> x <*> y mappend x y = mappend <$> x <*> y
instance Semigroup m => Semigroup (FormResult m) where instance Semigroup m => Semigroup (FormResult m) where
x <> y = (<>) <$> x <*> y x <> y = (<>) <$> x <*> y
-- | Since 1.4.4.2
instance Foldable FormResult where instance Foldable FormResult where
foldMap f r = case r of foldMap f r = case r of
FormSuccess a -> f a FormSuccess a -> f a
FormFailure errs -> mempty FormFailure errs -> mempty
FormMissing -> mempty FormMissing -> mempty
-- | Since 1.4.4.2
instance Traversable FormResult where instance Traversable FormResult where
traverse f r = case r of traverse f r = case r of
FormSuccess a -> fmap FormSuccess (f a) FormSuccess a -> fmap FormSuccess (f a)

2
yesod-form/yesod-form.cabal
View File

@ -1,5 +1,5 @@
name: yesod-form name: yesod-form
version: 1.4.4.1 version: 1.4.4.2
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>