diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:46:58 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:46:58 +0000 |
| commit | aff2929f17d9a543ae9cf6b83218e33474288e24 (patch) | |
| tree | ac66d36028a130870110a928818c8daa178e3a6e /compiler/specialise | |
| parent | df62fe193785e1fc9786a6c7321670f99fa9a37d (diff) | |
| download | haskell-aff2929f17d9a543ae9cf6b83218e33474288e24.tar.gz | |
Remove a #ifdef DEBUG
Diffstat (limited to 'compiler/specialise')
| -rw-r--r-- | compiler/specialise/Specialise.lhs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index 3aa94cf791..5350406c4d 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} |