diff --git a/src/Handler/Utils/Workflow/Form.hs b/src/Handler/Utils/Workflow/Form.hs index e88fa82f5..5610d5b44 100644 --- a/src/Handler/Utils/Workflow/Form.hs +++ b/src/Handler/Utils/Workflow/Form.hs @@ -177,9 +177,11 @@ data WorkflowDescriptionsFormScope | WorkflowDescriptionsFormInstance deriving (Eq, Ord, Bounded, Enum, Read, Show, Generic, Typeable) deriving (Universe, Finite) + +nullaryPathPiece ''WorkflowDescriptionsFormScope $ camelToPathPiece' 3 workflowDescriptionsForm :: WorkflowDescriptionsFormScope -> Maybe (Map Lang (Text, Maybe StoredMarkup)) -> AForm Handler (Map Lang (Text, Maybe StoredMarkup)) -workflowDescriptionsForm scope template = Map.fromList <$> massInputAccumEditA descrAdd descrEdit (const Nothing) descrLayout ("workflow-descriptions" :: Text) (fslI msgWorkflowDescriptions) False (Map.toList <$> template) +workflowDescriptionsForm scope template = Map.fromList <$> massInputAccumEditA descrAdd descrEdit (const Nothing) descrLayout ("workflow-descriptions--" <> toPathPiece scope :: Text) (fslI msgWorkflowDescriptions) False (Map.toList <$> template) where descrAdd nudge submitView csrf = do (formRes, formView) <- descrForm nudge Nothing csrf