[commit: ghc] master: Adapt the (commented out) pprTrace in OccurAnal (7fe7163)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7fe71636dc14a219c26def5cac2da9fa20689540/ghc

>---------------------------------------------------------------

commit 7fe71636dc14a219c26def5cac2da9fa20689540
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Nov 10 15:50:57 2016 +0000

    Adapt the (commented out) pprTrace in OccurAnal
    
    I did this while investigating Trac #12776


>---------------------------------------------------------------

7fe71636dc14a219c26def5cac2da9fa20689540
 compiler/simplCore/OccurAnal.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/simplCore/OccurAnal.hs b/compiler/simplCore/OccurAnal.hs
index 1186d0d..ac1736c 100644
--- 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