From 8bffe66a6d4107ea8426b8442f3dd4593de10286 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 15 Nov 2017 13:38:06 +0100 Subject: [PATCH] Handle all cases in button accumulation --- src/Handler/Utils/Form.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs index 8cc02782a..22e1cc88b 100644 --- a/src/Handler/Utils/Form.hs +++ b/src/Handler/Utils/Form.hs @@ -64,9 +64,12 @@ buttonForm html = do accResult = Foldable.foldr accResult' FormMissing accResult' :: FormResult (Maybe a) -> FormResult a -> FormResult a - accResult' (FormSuccess _) (FormSuccess _) = FormFailure ["Ambiguous parse"] + accResult' (FormSuccess (Just _)) (FormSuccess _) = FormFailure ["Ambiguous parse"] accResult' (FormSuccess (Just x)) _ = FormSuccess x - accResult' _ x = x + accResult' _ x@(FormSuccess _) = x + accResult' (FormSuccess Nothing) x = x + accResult' FormMissing _ = FormMissing + accResult' (FormFailure errs) _ = FormFailure errs ---------------------------- -- Buttons (old version ) --