fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Really fix button accumulation, this time

Browse Source
This commit is contained in:
Gregor Kleen 2017-11-15 13:17:33 +01:00
parent 41eee7fd5b
commit 725e00cf68
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Handler/Utils/Form.hs
View File

@ -66,7 +66,6 @@ buttonForm html = do
accResult' :: FormResult (Maybe a) -> FormResult a -> FormResult a accResult' :: FormResult (Maybe a) -> FormResult a -> FormResult a
accResult' (FormSuccess _) (FormSuccess _) = FormFailure ["Ambiguous parse"] accResult' (FormSuccess _) (FormSuccess _) = FormFailure ["Ambiguous parse"]
accResult' (FormSuccess (Just x)) _ = FormSuccess x accResult' (FormSuccess (Just x)) _ = FormSuccess x
accResult' (FormFailure errs) _ = FormFailure errs
accResult' _ x = x accResult' _ x = x
---------------------------- ----------------------------