From faf5c1b2dcdf65234ab70b0d0052a5ede4f2367d Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 15 Nov 2017 12:16:14 +0100
Subject: [PATCH] Fix for buttons does not work either

---
 src/Handler/Utils/Form.hs | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 2f68f1239..a03e99ede 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -47,21 +47,24 @@ buttonForm html = do
         view id name attrs _val _ = do
           [whamlet|
             #{html}
-            <button type=submit name=#{name} value=#{toPathPiece b} *{attrs} ##{id}>^{label b}
+            <button .btn .btn-default type=submit name=#{name} value=#{toPathPiece b} *{attrs} ##{id}>^{label b}
           |]
   
   buttonIdent <- newFormIdent
   resultWidgetMap <- forM buttonMap $ \val -> mopt (button val) ("" { fsName = Just buttonIdent }) Nothing
-  
-  let result = case (asum $ fst <$> resultWidgetMap) of
-        FormSuccess (Just x) -> FormSuccess x
-        FormSuccess Nothing  -> FormMissing
-        _other                -> FormMissing
+    
+  let result = asum $ nothing2miss <$> fst <$> Map.elems resultWidgetMap
   let viewF = (Map.!) (snd <$> resultWidgetMap)
   
-  
   return (result, viewF)
 
+nothing2miss :: FormResult (Maybe a) -> FormResult a
+nothing2miss (FormSuccess Nothing)  = FormMissing
+nothing2miss (FormSuccess (Just r)) = FormSuccess r
+nothing2miss (FormFailure msgs)     = FormFailure msgs
+nothing2miss (FormMissing)          = FormMissing
+  
+  
 ----------------------------
 -- Buttons (old version ) --
 ----------------------------