Remove a #ifdef DEBUG

diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs
index 3aa94cf..5350406 100644 (file)
--- 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 BasicTypes      ( Activation( AlwaysActive ) )
 import Bag
 import List            ( partition )

-import Util            ( zipEqual, zipWithEqual, cmpList, lengthIs,
-                         equalLength, lengthAtLeast, notNull )
+import Util

 import Outputable
 import FastString
 
 import Outputable
 import FastString
 

@@ -900,14 +899,13 @@ specDefn subst calls (fn, rhs)
 
       where
        my_zipEqual doc xs ys 
 
       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])
                                                [ 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}
 
         | otherwise               = zipEqual doc xs ys
 \end{code}