yesod-form 1.4.4.1 → 1.4.5

raw patch · 4 files changed

+24/−3 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Yesod/Form/Functions.hs +3/−2
• Yesod/Form/Types.hs +16/−0
• yesod-form.cabal +1/−1

@@ -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)

@@ -228,9 +228,10 @@                     | not (Map.lookup tokenKey params === reqToken req) ->                         FormFailure [renderMessage m langs MsgCsrfWarning]                 _ -> res+            -- It's important to use constant-time comparison (constEqBytes) in order to avoid timing attacks.             where (Just [t1]) === (Just t2) = TE.encodeUtf8 t1 `constEqBytes` TE.encodeUtf8 t2-                  Nothing     === Nothing   = True   -- It's important to use constTimeEq-                  _           === _         = False  -- in order to avoid timing attacks.+                  Nothing     === Nothing   = True+                  _           === _         = False     return ((res', xml), enctype)  -- | Similar to 'runFormPost', except it always ignores the currently available

@@ -35,6 +35,8 @@ import Yesod.Core import qualified Data.Map as Map import Data.Semigroup (Semigroup, (<>))+import Data.Traversable+import Data.Foldable  -- | A form can produce three different results: there was no data available, -- the data was invalid, or there was a successful parse.@@ -61,6 +63,20 @@     mappend x y = mappend <$> x <*> y instance Semigroup m => Semigroup (FormResult m) where     x <> y = (<>) <$> x <*> y++-- | @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.5+instance Traversable FormResult where+    traverse f r = case r of+      FormSuccess a -> fmap FormSuccess (f a)+      FormFailure errs -> pure (FormFailure errs)+      FormMissing -> pure FormMissing  -- | The encoding type required by a form. The 'ToHtml' instance produces values -- that can be inserted directly into HTML.

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