Commit 9b2a5189 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

DEBUG removal

parent da6ece6b
......@@ -57,7 +57,9 @@ import StaticFlags
import Outputable
import BinIface
import Panic
import Util
import Control.Monad
import Data.List
import Data.Maybe
import Data.IORef
......@@ -115,12 +117,12 @@ loadOrphanModules mods isFamInstMod
loadInterfaceForName :: SDoc -> Name -> TcRn ModIface
loadInterfaceForName doc name
= do {
#ifdef DEBUG
when debugIsOn $ do
-- Should not be called with a name from the module being compiled
this_mod <- getModule
; ASSERT2( not (nameIsLocalOrFrom this_mod name), ppr name <+> parens doc )
#endif
initIfaceTcRn $ loadSysInterface doc (nameModule name)
{ this_mod <- getModule
; MASSERT2( not (nameIsLocalOrFrom this_mod name), ppr name <+> parens doc )
}
; initIfaceTcRn $ loadSysInterface doc (nameModule name)
}
-- | An 'IfM' function to load the home interface for a wired-in thing,
......
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