Adapt the (commented out) pprTrace in OccurAnal

I did this while investigating Trac #12776

Adapt the (commented out) pprTrace in OccurAnal
I did this while investigating Trac #12776
7fe71636 · Simon Peyton Jones · 2325afe9 · 7fe71636
Commit 7fe71636 authored Nov 10, 2016 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

compiler/simplCore/OccurAnal.hs compiler/simplCore/OccurAnal.hs +3 -2

No files found.
--- a/compiler/simplCore/OccurAnal.hs
+++ b/compiler/simplCore/OccurAnal.hs
@@ -770,8 +770,9 @@ occAnalRec (CyclicSCC nodes) (body_uds, binds)

  | otherwise   -- At this point we always build a single Rec
  = -- pprTrace "occAnalRec" (vcat
-    --   [ text "tagged nodes" <+> ppr tagged_nodes
-    --   , text "lb edges" <+> ppr loop_breaker_edges])
+    --  [ text "weak_fvs" <+> ppr weak_fvs
+    --  , text "tagged nodes" <+> ppr tagged_nodes
+    --  , text "lb edges" <+> ppr loop_breaker_edges])
    (final_uds, Rec pairs : binds)

  where