From aff2929f17d9a543ae9cf6b83218e33474288e24 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 29 Mar 2008 14:46:58 +0000 Subject: [PATCH] Remove a #ifdef DEBUG --- compiler/specialise/Specialise.lhs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index 3aa94cf..5350406 100644 --- a/compiler/specialise/Specialise.lhs +++ b/compiler/specialise/Specialise.lhs @@ -47,8 +47,7 @@ import ErrUtils ( dumpIfSet_dyn ) import BasicTypes ( Activation( AlwaysActive ) ) import Bag import List ( partition ) -import Util ( zipEqual, zipWithEqual, cmpList, lengthIs, - equalLength, lengthAtLeast, notNull ) +import Util import Outputable import FastString @@ -900,14 +899,13 @@ specDefn subst calls (fn, rhs) where my_zipEqual doc xs ys -#ifdef DEBUG - | not (equalLength xs ys) = pprPanic "my_zipEqual" (vcat + | debugIsOn && not (equalLength xs ys) + = pprPanic "my_zipEqual" (vcat [ ppr xs, ppr ys , ppr fn <+> ppr call_ts , ppr (idType fn), ppr theta , ppr n_dicts, ppr rhs_dicts , ppr rhs]) -#endif | otherwise = zipEqual doc xs ys \end{code} -- 1.7.10.4