X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSMonad.lhs;h=647f22f9a6e025e35ccb908c93562a82a5c6c219;hb=b30f8b6540eb8fe10f06c6e12d0daa08464656c2;hp=cbf9330375ab2273377c29e21901b2d5a2fb248d;hpb=f67b457bb0271dd1590efcaa912fc441388531d9;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcSMonad.lhs b/compiler/typecheck/TcSMonad.lhs
index cbf9330..647f22f 100644
--- a/compiler/typecheck/TcSMonad.lhs
+++ b/compiler/typecheck/TcSMonad.lhs
@@ -528,7 +528,8 @@ runTcS context untouch tcs
 #ifdef DEBUG
        ; count <- TcM.readTcRef step_count
        ; when (count > 0) $
-         TcM.dumpTcRn (ptext (sLit "Constraint solver steps =") <+> int count <+> ppr context)
+         TcM.debugDumpTcRn (ptext (sLit "Constraint solver steps =") 
+                            <+> int count <+> ppr context)
 #endif
              -- And return
        ; ev_binds      <- TcM.readTcRef evb_ref