From 725e00cf689a997474739aff398cfdee4e01077b Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 15 Nov 2017 13:17:33 +0100
Subject: [PATCH] Really fix button accumulation, this time

---
 src/Handler/Utils/Form.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 683ba8c35..8cc02782a 100644
--- 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
   
 ----------------------------