@@ -192,7 +192,7 @@ buildDepMap ci ctx mainName = addPostulates $ dfs S.empty M.empty [mainName]
192 [ [] ==> concat
192 [ [] ==> concat
193 -- These two, Main.main and run__IO, are always evaluated
193 -- These two, Main.main and run__IO, are always evaluated
194 -- but they elude analysis since they come from the seed term.
194 -- but they elude analysis since they come from the seed term.
195− [ [(sUN "main" `sNS` ["Main"], Result)]
195+ [ [(mainName, Result)]
196 , [(sUN "run__IO", Result), (sUN "run__IO", Arg 0)]
196 , [(sUN "run__IO", Result), (sUN "run__IO", Arg 0)]
198 -- MkIO is read by run__IO,
198 -- MkIO is read by run__IO,