@@ -63,6 +63,8 @@ compile codegen f mtm = do
63 Nothing -> []
63 Nothing -> []
64 Just t -> freeNames t
64 Just t -> freeNames t
66+ logCodeGen 1 "Running Erasure Analysis"
67+ iReport 3 "Running Erasure Analysis"
66 reachableNames <- performUsageAnalysis
68 reachableNames <- performUsageAnalysis
67 (rootNames ++ getExpNames exports)
69 (rootNames ++ getExpNames exports)
68 maindef <- case mtm of
70 maindef <- case mtm of