[commit: ghc] wip/cross-constr-cse: disable the nullary constr subst for now (32c1ad1)

[git at git.haskell.org]

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

On branch  : wip/cross-constr-cse
Link       : http://ghc.haskell.org/trac/ghc/changeset/32c1ad141721f842c61eeeabdbff0d6359fea1bc/ghc

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

commit 32c1ad141721f842c61eeeabdbff0d6359fea1bc
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Jul 31 09:13:10 2017 +0200

    disable the nullary constr subst for now


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

32c1ad141721f842c61eeeabdbff0d6359fea1bc
 compiler/simplStg/StgCse.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index 6d845b3..e25ab91 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -201,9 +201,9 @@ envLookup dataCon args env = lookupTM (dataCon, args') (ce_conAppMap env)
 
 addDataCon :: OutId -> LaxDataCon -> [OutStgArg] -> CseEnv -> CseEnv
 -- do not bother with nullary data constructors, they are static anyways
-addDataCon bndr dataCon [] env = env { ce_conAppMap = new_env }
-  where new_env = alterTM (dataCon, []) (\case Nothing -> pure bndr; p -> p) (ce_conAppMap env)
---addDataCon _ _ [] env = env
+--addDataCon bndr dataCon [] env = env { ce_conAppMap = new_env }
+--  where new_env = alterTM (dataCon, []) (\case Nothing -> pure bndr; p -> p) (ce_conAppMap env)
+addDataCon _ _ [] env = env
 addDataCon bndr dataCon args env = env { ce_conAppMap = new_env }
   where
     new_env = insertTM (dataCon, args) bndr (ce_conAppMap env)