From cd9e6348ce281dd3def7ca8aa24e155cc94f7564 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 21 Dec 2018 18:32:33 +0100
Subject: [PATCH] Maybe don't inspect submit buttons too much

---
 src/Utils/Form.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Utils/Form.hs b/src/Utils/Form.hs
index ec42373ad..b10f0e010 100644
--- a/src/Utils/Form.hs
+++ b/src/Utils/Form.hs
@@ -301,7 +301,7 @@ combinedButtonField_ :: forall a m.
                       , RenderMessage (HandlerSite m) ButtonMessage
                       , MonadHandler m
                       ) => [a] -> FieldSettings (HandlerSite m) -> AForm m ()
-combinedButtonField_ bs fs = void . disambiguateButtons $ combinedButtonField bs fs
+combinedButtonField_ = (void .) . combinedButtonField
 
 combinedButtonFieldF_ :: forall m a p.
                        ( Button (HandlerSite m) a
@@ -310,7 +310,7 @@ combinedButtonFieldF_ :: forall m a p.
                        , MonadHandler m
                        , Finite a
                        ) => p a -> FieldSettings (HandlerSite m) -> AForm m ()
-combinedButtonFieldF_ _ fs = void . disambiguateButtons $ combinedButtonFieldF @m @a fs
+combinedButtonFieldF_ _ = void . combinedButtonFieldF @m @a
 
 submitButton :: (Button (HandlerSite m) SubmitButton, Show (ButtonCssClass (HandlerSite m)), MonadHandler m, RenderMessage (HandlerSite m) ButtonMessage) => AForm m ()
 submitButton = combinedButtonFieldF_ (Proxy @SubmitButton) ""