diff --git a/src/Utils/Workflow/Lint.hs b/src/Utils/Workflow/Lint.hs index d125237cd..df1937c5a 100644 --- a/src/Utils/Workflow/Lint.hs +++ b/src/Utils/Workflow/Lint.hs @@ -44,11 +44,11 @@ instance Exception WorkflowGraphLinterIssue where lintWorkflowGraph :: forall fileid userid. WorkflowGraph fileid userid -> Maybe (NonNull (Set WorkflowGraphLinterIssue)) lintWorkflowGraph graph = fromNullable . Set.fromList $ concatMap ($ graph) [ checkEdgesForUnknownGraphNodeLabel - , checkFormPayloadVisibleInTargetNode + , checkFormPayloadVisibleInTargetNode -- TODO: Satisfiability of automatic edges? , finalMatchesOutgoingEdges , checkUndefinedFieldOrder - , checkNodeUnreachable - , checkNodeUnfinalizable + , checkNodeUnreachable -- TODO: Satisfiability of automatic edges + , checkNodeUnfinalizable -- TODO: Satisfiability of automatic edges -- Future ideas: -- - WorkflowRolePayloadReference for unknown payload -- - wgePayloadRestriction for unknown payload