diff options
| author | simonpj <unknown> | 2005-11-03 15:00:23 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2005-11-03 15:00:23 +0000 |
| commit | 356028e7abbf088d7d71d19997a07a79afbd3c8e (patch) | |
| tree | 2163417f8909cf25319d90a590dac64f80f7403a | |
| parent | ba6b4bc67989585feb9ee019758f1247d0296c8d (diff) | |
| download | haskell-356028e7abbf088d7d71d19997a07a79afbd3c8e.tar.gz | |
[project @ 2005-11-03 15:00:23 by simonpj]
Missing import for new assert
| -rw-r--r-- | ghc/compiler/typecheck/TcEnv.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/typecheck/TcEnv.lhs b/ghc/compiler/typecheck/TcEnv.lhs index 1c7e722282..f14eb4274e 100644 --- a/ghc/compiler/typecheck/TcEnv.lhs +++ b/ghc/compiler/typecheck/TcEnv.lhs @@ -63,7 +63,7 @@ import InstEnv ( Instance, DFunId, instanceDFunId, instanceHead ) import DataCon ( DataCon ) import TyCon ( TyCon ) import Class ( Class ) -import Name ( Name, NamedThing(..), getSrcLoc, nameModule ) +import Name ( Name, NamedThing(..), getSrcLoc, nameModule, isExternalName ) import PrelNames ( thFAKE ) import NameEnv import OccName ( mkDFunOcc, occNameString ) @@ -94,7 +94,7 @@ tcLookupLocatedGlobal name tcLookupGlobal :: Name -> TcM TyThing tcLookupGlobal name - = ASSERT( isGlobalName name ) + = ASSERT( isExternalName name ) do { env <- getGblEnv -- Try local envt |