Commit 7fe71636 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Adapt the (commented out) pprTrace in OccurAnal

I did this while investigating Trac #12776
parent 2325afe9
...@@ -770,8 +770,9 @@ occAnalRec (CyclicSCC nodes) (body_uds, binds) ...@@ -770,8 +770,9 @@ occAnalRec (CyclicSCC nodes) (body_uds, binds)
| otherwise -- At this point we always build a single Rec | otherwise -- At this point we always build a single Rec
= -- pprTrace "occAnalRec" (vcat = -- pprTrace "occAnalRec" (vcat
-- [ text "tagged nodes" <+> ppr tagged_nodes -- [ text "weak_fvs" <+> ppr weak_fvs
-- , text "lb edges" <+> ppr loop_breaker_edges]) -- , text "tagged nodes" <+> ppr tagged_nodes
-- , text "lb edges" <+> ppr loop_breaker_edges])
(final_uds, Rec pairs : binds) (final_uds, Rec pairs : binds)
where where
......
Markdown is supported
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