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

Merge branch 'master' into 'live'

Browse Source 
Fix Handling of fsAttrs in combinedButtonField

See merge request !124
This commit is contained in:
Gregor Kleen 2018-12-29 16:08:07 +01:00
commit 5a898c3303
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