packages feed

yesod-form 1.4.3.1 → 1.4.4

raw patch · 3 files changed

+12/−1 lines, 3 filesdep +semigroupsPVP ok

version bump matches the API change (PVP)

Dependencies added: semigroups

API changes (from Hackage documentation)

+ Yesod.Form.Types: instance (Monad m, Semigroup a) => Semigroup (AForm m a)
+ Yesod.Form.Types: instance Semigroup Enctype
+ Yesod.Form.Types: instance Semigroup m => Semigroup (FormResult m)

Files

ChangeLog.md view
@@ -1,3 +1,7 @@+## 1.4.4++* Add a `Semigroup` instance+ ## 1.4.3  Added `jqueryDatePickerDayField`.
Yesod/Form/Types.hs view
@@ -34,6 +34,7 @@ import Data.String (IsString (..)) import Yesod.Core import qualified Data.Map as Map+import Data.Semigroup (Semigroup, (<>))  -- | A form can produce three different results: there was no data available, -- the data was invalid, or there was a successful parse.@@ -58,6 +59,8 @@ instance Monoid m => Monoid (FormResult m) where     mempty = pure mempty     mappend x y = mappend <$> x <*> y+instance Semigroup m => Semigroup (FormResult m) where+    x <> y = (<>) <$> x <*> y  -- | The encoding type required by a form. The 'ToHtml' instance produces values -- that can be inserted directly into HTML.@@ -70,6 +73,7 @@     mempty = UrlEncoded     mappend UrlEncoded UrlEncoded = UrlEncoded     mappend _ _ = Multipart+instance Semigroup Enctype  data Ints = IntCons Int Ints | IntSingle Int instance Show Ints where@@ -106,6 +110,8 @@ instance (Monad m, Monoid a) => Monoid (AForm m a) where     mempty = pure mempty     mappend a b = mappend <$> a <*> b+instance (Monad m, Semigroup a) => Semigroup (AForm m a) where+    a <> b = (<>) <$> a <*> b  instance MonadTrans AForm where     lift f = AForm $ \_ _ ints -> do
yesod-form.cabal view
@@ -1,5 +1,5 @@ name:            yesod-form-version:         1.4.3.1+version:         1.4.4 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -41,6 +41,7 @@                    , byteable                    , aeson                    , resourcet+                   , semigroups      if flag(network-uri)       build-depends: network-uri >= 2.6