[commit: ghc] wip/T14677: trace original id (c71c538)

[git at git.haskell.org]

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

On branch  : wip/T14677
Link       : http://ghc.haskell.org/trac/ghc/changeset/c71c538537de476bd9533e2448a35aaab8f45395/ghc

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

commit c71c538537de476bd9533e2448a35aaab8f45395
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sun Jan 6 15:05:49 2019 +0100

    trace original id


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

c71c538537de476bd9533e2448a35aaab8f45395
 compiler/codeGen/StgCmmClosure.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs
index b220b12..b5c257c 100644
--- a/compiler/codeGen/StgCmmClosure.hs
+++ b/compiler/codeGen/StgCmmClosure.hs
@@ -332,6 +332,7 @@ mkLFImported id
   | isValueUnfolding unf
   , Just expr <- maybeUnfoldingTemplate unf
   , Just con <- exprIsSatConApp_maybe expr
+  , if mayHaveCafRefs (idCafInfo id) then pprTrace "caffy #+##" (ppr id <+> ppr expr) True else True
   = LFCon con
 
   | arity > 0