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

fix(workflows): workflow-definition edit translations

Browse Source
This commit is contained in:
Gregor Kleen 2021-07-05 17:56:07 +02:00
parent c7ce1679de
commit 5c5cbaddf8
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Form/MassInput.hs
View File

@ -632,7 +632,7 @@ massInputAccumEdit miAdd' miCell' miButtonAction miLayout miIdent fSettings fReq
miCell :: ListPosition -> cellData -> Maybe cellData -> (Text -> Text)
-> (Markup -> MForm handler (FormResult cellData, Widget))
miCell _pos dat _mPrev nudge = miCell' nudge dat
miCell _pos dat mPrev' nudge = miCell' nudge $ fromMaybe dat mPrev'
miDelete :: MassInputDelete ListLength
miDelete = miDeleteList

32
src/Handler/Workflow/Definition/Edit.hs
View File

@ -54,22 +54,26 @@ postAWDEditR wds' wdn = do
, workflowDefinitionInstanceCategory = wdfInstanceCategory
}
when (is _Nothing insConflict) . iforM_ wdfDescriptions $ \wddLang (wddTitle, wddDesc) -> do
when (is _Nothing insConflict) $ do
deleteWhere [WorkflowDefinitionDescriptionDefinition ==. wdId]
insert WorkflowDefinitionDescription
{ workflowDefinitionDescriptionDefinition = wdId
, workflowDefinitionDescriptionLanguage = wddLang
, workflowDefinitionDescriptionTitle = wddTitle
, workflowDefinitionDescriptionDescription = wddDesc
}
when (is _Nothing insConflict) . iforM_ wdfInstanceDescriptions $ \wddLang (wddTitle, wddDesc) -> do
insertMany_ $ do
(wddLang, (wddTitle, wddDesc)) <- Map.toList wdfDescriptions
return WorkflowDefinitionDescription
{ workflowDefinitionDescriptionDefinition = wdId
, workflowDefinitionDescriptionLanguage = wddLang
, workflowDefinitionDescriptionTitle = wddTitle
, workflowDefinitionDescriptionDescription = wddDesc
}
deleteWhere [WorkflowDefinitionInstanceDescriptionDefinition ==. wdId]
insert WorkflowDefinitionInstanceDescription
{ workflowDefinitionInstanceDescriptionDefinition = wdId
, workflowDefinitionInstanceDescriptionLanguage = wddLang
, workflowDefinitionInstanceDescriptionTitle = wddTitle
, workflowDefinitionInstanceDescriptionDescription = wddDesc
}
insertMany_ $ do
(wddLang, (wddTitle, wddDesc)) <- Map.toList wdfInstanceDescriptions
return WorkflowDefinitionInstanceDescription
{ workflowDefinitionInstanceDescriptionDefinition = wdId
, workflowDefinitionInstanceDescriptionLanguage = wddLang
, workflowDefinitionInstanceDescriptionTitle = wddTitle
, workflowDefinitionInstanceDescriptionDescription = wddDesc
}
case insConflict of
Just (UniqueWorkflowDefinition wdn' wds'') -> return . Just $