Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/95fb4b1da70a9df50a42449b19ff6350181a38db >--------------------------------------------------------------- commit 95fb4b1da70a9df50a42449b19ff6350181a38db Author: Simon Peyton Jones <[email protected]> Date: Fri Apr 27 17:42:22 2012 +0100 Comment out a pprTrace unless DEBUG is on (fix Trac #5929) >--------------------------------------------------------------- compiler/simplCore/SimplUtils.lhs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index d83a67e..0b6c66e 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -1171,9 +1171,11 @@ findArity dflags bndr rhs old_arity | cur_arity <= old_arity = cur_arity | new_arity == cur_arity = cur_arity | otherwise = ASSERT( new_arity < cur_arity ) +#ifdef DEBUG pprTrace "Exciting arity" (vcat [ ppr bndr <+> ppr cur_arity <+> ppr new_arity , ppr rhs]) +#endif go new_arity where new_arity = exprEtaExpandArity dflags cheap_app rhs _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
