X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSimplify.lhs;h=ee62c0e8b04e54ae38f08a18a3b69801ad12c603;hb=e1cae1230d5b334c045d0c568d5bf7d02a26dbd7;hp=6d68ed807f9de2ebb1bbff76b715c17105ffb8f9;hpb=ced07fe8a88080427458e1be1bad5a64d754d177;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcSimplify.lhs b/compiler/typecheck/TcSimplify.lhs
index 6d68ed8..ee62c0e 100644
--- a/compiler/typecheck/TcSimplify.lhs
+++ b/compiler/typecheck/TcSimplify.lhs
@@ -1908,7 +1908,7 @@ reduceList env@(RedEnv {red_stack = (n,stk)}) wanteds state
   = do	{ traceTc (text "reduceList " <+> (ppr wanteds $$ ppr state))
 	; dopts <- getDOpts
 	; when (debugIsOn && (n > 8)) $ do
-		dumpTcRn (hang (ptext (sLit "Interesting! Context reduction stack depth") <+> int n) 
+		debugDumpTcRn (hang (ptext (sLit "Interesting! Context reduction stack depth") <+> int n) 
 			     2 (ifPprDebug (nest 2 (pprStack stk))))
 	; if n >= ctxtStkDepth dopts then
 	    failWithTc (reduceDepthErr n stk)