fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix Handling of fsAttrs in combinedButtonField

Browse Source
This commit is contained in:
Gregor Kleen 2018-12-29 15:13:35 +01:00
parent 5e6de82e1d
commit 48f56a5fe3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Utils/Form.hs
View File

@ -265,6 +265,7 @@ combinedButtonField bs FieldSettings{..} = formToAForm $ do
name <- maybe newFormIdent return fsName name <- maybe newFormIdent return fsName
(ress, fvs) <- fmap unzip . for bs $ \b -> mopt (buttonField b) ("" { fsId = Just $ fvId <> "__" <> toPathPiece b (ress, fvs) <- fmap unzip . for bs $ \b -> mopt (buttonField b) ("" { fsId = Just $ fvId <> "__" <> toPathPiece b
, fsName = Just $ name <> "__" <> toPathPiece b , fsName = Just $ name <> "__" <> toPathPiece b
, fsAttrs
}) Nothing }) Nothing
return ( sequenceA ress return ( sequenceA ress
, pure FieldView , pure FieldView