Commit e9a9344b authored by's avatar
Browse files

Take advantage of non-rec-ness in occurrence analysis (minor)

parent 902c558c
......@@ -176,9 +176,9 @@ occAnalBind env (Rec pairs) body_usage
| otherwise
= (combined_usage, new_bind : binds_so_far)
total_usage = combineUsageDetails body_usage rhs_usage
(combined_usage, tagged_bndr) = tagBinder total_usage bndr
new_bind = NonRec tagged_bndr rhs'
(body_usage', tagged_bndr) = tagBinder body_usage bndr
combined_usage = combineUsageDetails body_usage' rhs_usage
new_bind = NonRec tagged_bndr rhs'
-- Recursive SCC
do_final_bind (CyclicSCC cycle) (body_usage, binds_so_far)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment