Really fix button accumulation, this time

2017-11-15 13:17:33 +01:00 · 2017-11-15 13:17:33 +01:00 · 725e00cf68
commit 725e00cf68
parent 41eee7fd5b
1 changed files with 0 additions and 1 deletions
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@ -66,7 +66,6 @@ buttonForm html = do
    accResult' :: FormResult (Maybe a) -> FormResult a -> FormResult a
    accResult' (FormSuccess _) (FormSuccess _) = FormFailure ["Ambiguous parse"]
    accResult' (FormSuccess (Just x)) _ = FormSuccess x
-    accResult' (FormFailure errs) _ = FormFailure errs
    accResult' _ x = x
  
 ----------------------------