[commit: ghc] wip/T13861: also show constructor arity (f266c73)

[git at git.haskell.org]

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

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

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

commit f266c73af3bdbbd01b28987b17821019452f6b47
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Aug 25 15:59:07 2017 +0200

    also show constructor arity


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

f266c73af3bdbbd01b28987b17821019452f6b47
 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 88a2c7d..bfa02b2 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -342,7 +342,7 @@ stgCseExpr env (StgCase scrut bndr ty alts)
 -- To be removed by a variable use when found in the CSE environment
 stgCseExpr env (StgConApp dataCon args tys)
     | Just bndr' <- envLookup dc args' env
-    = (if getKey u < 0 then pprTrace "stgCseExpr" (ppr dataCon) else id) $ StgApp bndr' []
+    = (if getKey u < 0 then pprTrace "stgCseExpr" (ppr dataCon <+> text (show $ length (dataConOrigArgTys dataCon))) else id) $ StgApp bndr' []
     | otherwise
     = StgConApp dataCon args' tys
   where args' = substArgs env args