Revert "Suppress dumpTcRn when -dno-debug-output is enabled."
authorEdward Z. Yang <ezyang@mit.edu>
Wed, 6 Apr 2011 10:52:17 +0000 (11:52 +0100)
committerEdward Z. Yang <ezyang@mit.edu>
Wed, 6 Apr 2011 10:52:17 +0000 (11:52 +0100)
This reverts commit 12929a219671cd7794b5a533cebdfef11d2f8ff4.

compiler/typecheck/TcRnMonad.lhs

index 16ac13c..ad2405b 100644 (file)
@@ -429,7 +429,7 @@ traceOptTcRn flag doc = ifDOptM flag $ do
 dumpTcRn :: SDoc -> TcRn ()
 dumpTcRn doc = do { rdr_env <- getGlobalRdrEnv 
                   ; dflags <- getDOpts 
-                  ; when (not opt_NoDebugOutput) $ liftIO (printForUser stderr (mkPrintUnqualified dflags rdr_env) doc) }
+                  ; liftIO (printForUser stderr (mkPrintUnqualified dflags rdr_env) doc) }
 
 debugDumpTcRn :: SDoc -> TcRn ()
 debugDumpTcRn doc | opt_NoDebugOutput = return ()