Simplify invokedNodes

This commit is contained in:
Joseph C. Sible 2024-07-07 01:03:40 -04:00
parent 3946cbd4a0
commit b408f54620
1 changed files with 1 additions and 1 deletions

View File

@ -1350,7 +1350,7 @@ analyzeControlFlow params t =
-- All nodes we've touched
invocations <- readSTRef $ cInvocations ctx
let invokedNodes = M.fromDistinctAscList $ map (\c -> (c, ())) $ S.toList $ M.keysSet $ groupByNode $ M.map snd invocations
let invokedNodes = M.fromSet (const ()) $ S.unions $ map (M.keysSet . snd) $ M.elems invocations
-- Invoke all functions that were declared but not invoked
-- This is so that we still get warnings for dead code