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