fix(workflows): workflow-definition edit translations

src/Handler/Utils/Form/MassInput.hs

@@ -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

src/Handler/Workflow/Definition/Edit.hs

@@ -54,17 +54,21 @@ 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
+        insertMany_ $ do
+          (wddLang, (wddTitle, wddDesc)) <- Map.toList wdfDescriptions
+          return WorkflowDefinitionDescription
             { workflowDefinitionDescriptionDefinition = wdId
             , workflowDefinitionDescriptionLanguage = wddLang
             , workflowDefinitionDescriptionTitle = wddTitle
             , workflowDefinitionDescriptionDescription = wddDesc
             }
-      when (is _Nothing insConflict) . iforM_ wdfInstanceDescriptions $ \wddLang (wddTitle, wddDesc) -> do
+
         deleteWhere [WorkflowDefinitionInstanceDescriptionDefinition ==. wdId]
-        insert WorkflowDefinitionInstanceDescription
+        insertMany_ $ do
+          (wddLang, (wddTitle, wddDesc)) <- Map.toList wdfInstanceDescriptions
+          return WorkflowDefinitionInstanceDescription
             { workflowDefinitionInstanceDescriptionDefinition = wdId
             , workflowDefinitionInstanceDescriptionLanguage = wddLang
             , workflowDefinitionInstanceDescriptionTitle = wddTitle