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

make FormResult an instance od Eq

Browse Source
This commit is contained in:
Jonathan Lamothe 2019-01-18 12:48:36 -05:00
parent 673db5f6ff
commit 429f78859c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,7 +50,7 @@ import Data.Foldable
data FormResult a = FormMissing data FormResult a = FormMissing
| FormFailure [Text] | FormFailure [Text]
| FormSuccess a | FormSuccess a
deriving Show deriving (Show, Eq)
instance Functor FormResult where instance Functor FormResult where
fmap _ FormMissing = FormMissing fmap _ FormMissing = FormMissing
fmap _ (FormFailure errs) = FormFailure errs fmap _ (FormFailure errs) = FormFailure errs