Fix Handling of fsAttrs in combinedButtonField

2018-12-29 15:13:35 +01:00 · 2018-12-29 15:13:35 +01:00 · 48f56a5fe3
commit 48f56a5fe3
parent 5e6de82e1d
1 changed files with 1 additions and 0 deletions
--- 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