[commit: ghc] wip/T14677: WIP: trace other way round (39107d2)

[git at git.haskell.org]

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

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

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

commit 39107d280ad3e3a753bfe66182161681a41b1dbc
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sat Jan 27 20:17:49 2018 +0100

    WIP: trace other way round


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

39107d280ad3e3a753bfe66182161681a41b1dbc
 compiler/codeGen/StgCmmClosure.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs
index 2c6cf19..f64a311 100644
--- a/compiler/codeGen/StgCmmClosure.hs
+++ b/compiler/codeGen/StgCmmClosure.hs
@@ -331,10 +331,10 @@ mkLFImported id
   | isValueUnfolding unf
   , Just expr <- maybeUnfoldingTemplate unf
   , Just con <- exprIsSatConApp_maybe expr
-  , let casted (Cast _ _) = True
+  , let casted (Cast _ _) = pprTrace "mkLFImported" (ppr unf <+> ppr expr <+> ppr con) True
         casted _ = False
   , not $ casted expr
-  = pprTrace "mkLFImported" (ppr unf <+> ppr expr <+> ppr con) LFCon con
+  = LFCon con
 
   | arity > 0
   = LFReEntrant TopLevel noOneShotInfo arity True (panic "arg_descr")