[commit: ghc] master: Improve an ASSERT (082cf13)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/082cf137fdec4d5534e01e45a4e64fd157326db8/ghc

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

commit 082cf137fdec4d5534e01e45a4e64fd157326db8
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Dec 16 17:34:49 2014 +0000

    Improve an ASSERT


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

082cf137fdec4d5534e01e45a4e64fd157326db8
 compiler/codeGen/StgCmmExpr.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index ee63550..e54ae46 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -642,7 +642,7 @@ cgConApp con stg_args
        ; emitReturn arg_exprs }
 
   | otherwise   --  Boxed constructors; allocate and return
-  = ASSERT( stg_args `lengthIs` dataConRepRepArity con )
+  = ASSERT2( stg_args `lengthIs` dataConRepRepArity con, ppr con <+> ppr stg_args )
     do  { (idinfo, fcode_init) <- buildDynCon (dataConWorkId con) False
                                      currentCCS con stg_args
                 -- The first "con" says that the name bound to this