From 48f56a5fe320be31211a3669ad20a30b8fb9691d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 29 Dec 2018 15:13:35 +0100
Subject: [PATCH] Fix Handling of fsAttrs in combinedButtonField

---
 src/Utils/Form.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Utils/Form.hs b/src/Utils/Form.hs
index b10f0e010..df055660d 100644
--- a/src/Utils/Form.hs
+++ b/src/Utils/Form.hs
@@ -265,6 +265,7 @@ combinedButtonField bs FieldSettings{..} = formToAForm $ do
   name <- maybe newFormIdent return fsName
   (ress, fvs) <- fmap unzip . for bs $ \b -> mopt (buttonField b) ("" { fsId = Just $ fvId <> "__" <> toPathPiece b
                                                                       , fsName = Just $ name <> "__" <> toPathPiece b
+                                                                      , fsAttrs
                                                                       }) Nothing
   return ( sequenceA ress
          , pure FieldView