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

fix(workflows): properly offer previous payload files

Browse Source
This commit is contained in:
Gregor Kleen 2020-12-04 16:36:55 +01:00
parent 02a43e585d
commit aa0404a007
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Utils/Workflow/EdgeForm.hs
View File

@ -351,9 +351,13 @@ workflowEdgePayloadFields specs = evalRWST (forM specs $ runExceptT . renderSpec
| otherwise -> \case | otherwise -> \case
Nothing -> Just $ Set.singleton p Nothing -> Just $ Set.singleton p
Just _ -> Nothing Just _ -> Nothing
let wpffConfig' = wpffConfig & _fieldAdditionalFiles %~ (fRefs' <>)
where fRefs' = review _FileReferenceFileReferenceTitleMap . Map.fromList $ do
FileReference{..} <- Set.toList =<< hoistMaybe fRefs
return (fileReferenceTitle, (fileReferenceContent, fileReferenceModified, FileFieldUserOption False True))
wSetTooltip' (fmap slI18n wpffTooltip) $ wSetTooltip' (fmap slI18n wpffTooltip) $
f' (nonEmpty . Set.toList) wpffOptional f' (nonEmpty . Set.toList) wpffOptional
(convertFieldM (\p -> runConduit $ transPipe liftHandler p .| C.foldMap Set.singleton) yieldMany . genericFileField $ return wpffConfig) (convertFieldM (\p -> runConduit $ transPipe liftHandler p .| C.foldMap Set.singleton) yieldMany . genericFileField $ return wpffConfig')
( fsl (slI18n wpffLabel) ( fsl (slI18n wpffLabel)
& maybe id (addName . ($ "file")) mNudge & maybe id (addName . ($ "file")) mNudge
) )