Commit 72d043c0 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove an #ifdef DEBUG

parent 49f976f3
......@@ -49,6 +49,7 @@ import DynFlags
import StaticFlags
import FastString
import Panic
import Util
import System.IO
import Data.IORef
......@@ -815,11 +816,9 @@ debugTc is useful for monadic debugging code
\begin{code}
debugTc :: TcM () -> TcM ()
#ifdef DEBUG
debugTc thing = thing
#else
debugTc thing = return ()
#endif
debugTc thing
| debugIsOn = thing
| otherwise = return ()
\end{code}
%************************************************************************
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment