From affa8072def1add8d4aa34b3096f7bb3419613a8 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 6 Dec 2020 20:25:00 +0100 Subject: [PATCH] refactor: hlint --- src/Utils/Workflow/Lint.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Utils/Workflow/Lint.hs b/src/Utils/Workflow/Lint.hs index a7a3be2ea..d125237cd 100644 --- a/src/Utils/Workflow/Lint.hs +++ b/src/Utils/Workflow/Lint.hs @@ -87,7 +87,7 @@ lintWorkflowGraph graph = fromNullable . Set.fromList $ concatMap ($ graph) return nodeLbl checkUndefinedFieldOrder WorkflowGraph{wgNodes} = ifoldMap (\nodeLbl node -> map (\(edgeLbl, payloadLbls) -> WGLUndefinedFieldOrder (nodeLbl, edgeLbl) payloadLbls) . Set.toList $ doCheck node) wgNodes where - doCheck :: WorkflowGraphNode fileid userid -> Set (WorkflowGraphEdgeLabel, NonNull (MultiSet (WorkflowPayloadLabel))) + doCheck :: WorkflowGraphNode fileid userid -> Set (WorkflowGraphEdgeLabel, NonNull (MultiSet WorkflowPayloadLabel)) doCheck WGN{wgnEdges} = ifoldMap (\edgeLbl -> foldMap (Set.singleton . (edgeLbl, )) . doCheck') wgnEdges where doCheck' :: WorkflowGraphEdge fileid userid -> [NonNull (MultiSet WorkflowPayloadLabel)] @@ -98,7 +98,7 @@ lintWorkflowGraph graph = fromNullable . Set.fromList $ concatMap ($ graph) go :: WorkflowPayloadLabel -> NonNull (Set (NonNull (Map WorkflowGraphEdgeFormOrder (WorkflowPayloadSpec fileid userid)))) -> MergeMap WorkflowGraphEdgeFormOrder (NonNull (MultiSet WorkflowPayloadLabel)) - go payloadLbl = foldMap go' . map (Map.keysSet . toNullable) . Set.toList . toNullable + go payloadLbl = foldMap (go' . Map.keysSet . toNullable) . Set.toList . toNullable where go' :: Set WorkflowGraphEdgeFormOrder -> MergeMap WorkflowGraphEdgeFormOrder (NonNull (MultiSet WorkflowPayloadLabel))