Remove an #ifdef DEBUG

diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs
index 3c6c59e..dcba808 100644 (file)
--- a/compiler/typecheck/TcRnMonad.lhs
+++ b/compiler/typecheck/TcRnMonad.lhs
@@ -49,6 +49,7 @@ import DynFlags
 import StaticFlags
 import FastString
 import Panic
 import StaticFlags
 import FastString
 import Panic

+import Util

  
 import System.IO
 import Data.IORef
  
 import System.IO
 import Data.IORef

@@ -815,11 +816,9 @@ debugTc is useful for monadic debugging code
 
 \begin{code}
 debugTc :: TcM () -> TcM ()
 
 \begin{code}
 debugTc :: TcM () -> TcM ()

-#ifdef DEBUG
-debugTc thing = thing
-#else
-debugTc thing = return ()
-#endif
+debugTc thing
+ | debugIsOn = thing
+ | otherwise = return ()

 \end{code}
 
  %************************************************************************
 \end{code}
 
  %************************************************************************