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

Merge pull request #1571 from jlamothe/FormResult

Browse Source 
Make FormResult instances of Eq and Monad
This commit is contained in:
Sibi 2019-01-20 22:59:18 +05:30 committed by GitHub
commit 09c4587393
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-form/ChangeLog.md
View File

@ -1,5 +1,9 @@
# ChangeLog for yesod-form # ChangeLog for yesod-form
## 1.6.4
* Make FormResult an instance of Eq
## 1.6.3 ## 1.6.3
* make sure a select field does not lose the selected value even if a validation on the * make sure a select field does not lose the selected value even if a validation on the

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

2
yesod-form/yesod-form.cabal
View File

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