Merge branch 'master' into 'live'

Fix Handling of fsAttrs in combinedButtonField See merge request !124
2018-12-29 16:08:07 +01:00 · 2018-12-29 16:08:07 +01:00 · 5a898c3303
commit 5a898c3303
parent e17b7f2eca 48f56a5fe3
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