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