[commit: ghc] wip/T13861: back out this change, it worsens things (685e911)

[git at git.haskell.org]

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

On branch  : wip/T13861
Link       : http://ghc.haskell.org/trac/ghc/changeset/685e9111d36fbd3e8c155d6c24a827421799770e/ghc

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

commit 685e9111d36fbd3e8c155d6c24a827421799770e
Author: Gabor Greif <ggreif at gmail.com>
Date:   Thu Aug 31 16:00:33 2017 +0200

    back out this change, it worsens things


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

685e9111d36fbd3e8c155d6c24a827421799770e
 compiler/simplStg/StgCse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index 0842a4f..e777e3a 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -344,7 +344,7 @@ stgCseExpr env orig@(StgConApp dataCon args tys)
     | Just bndr' <- envLookup dc args' env
     = (if getKey u < 0 then pprTrace "stgCseExpr" (ppr dataCon <+> text (show $ length (dataConOrigArgTys dataCon))) else id) $ StgApp bndr' []
     | otherwise
-    = orig -- StgConApp dataCon args' tys
+    = StgConApp dataCon args' tys
   where args' = substArgs env args
         dc = Lax dataCon
         u = getUnique (getName dc)