diff --git a/yesod-form/ChangeLog.md b/yesod-form/ChangeLog.md index 9b0d32c8..f6d07e92 100644 --- a/yesod-form/ChangeLog.md +++ b/yesod-form/ChangeLog.md @@ -1,5 +1,9 @@ # ChangeLog for yesod-form +## 1.6.4 + +* Make FormResult an instance of Eq + ## 1.6.3 * make sure a select field does not lose the selected value even if a validation on the diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs index 898e319b..bfc3e179 100644 --- a/yesod-form/Yesod/Form/Types.hs +++ b/yesod-form/Yesod/Form/Types.hs @@ -50,7 +50,7 @@ import Data.Foldable data FormResult a = FormMissing | FormFailure [Text] | FormSuccess a - deriving Show + deriving (Show, Eq) instance Functor FormResult where fmap _ FormMissing = FormMissing fmap _ (FormFailure errs) = FormFailure errs diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index e2c1ae5d..817ef8db 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.6.3 +version: 1.6.4 license: MIT license-file: LICENSE author: Michael Snoyman