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

DEBUG removal

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