make FormResult an instance od Eq

2019-01-18 12:48:36 -05:00 · 2019-01-18 12:48:36 -05:00 · 429f78859c
commit 429f78859c
parent 673db5f6ff
1 changed files with 1 additions and 1 deletions
--- 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