[project @ 2004-12-22 12:04:14 by simonpj]

[ghc-hetmet.git] / ghc / compiler / iface / IfaceEnv.lhs

diff --git a/ghc/compiler/iface/IfaceEnv.lhs b/ghc/compiler/iface/IfaceEnv.lhs
index 3a3842f..90aac7b 100644 (file)
--- a/ghc/compiler/iface/IfaceEnv.lhs
+++ b/ghc/compiler/iface/IfaceEnv.lhs
@@ -10,7 +10,7 @@ module IfaceEnv (
        tcIfaceLclId,     tcIfaceTyVar, 
 
        -- Name-cache stuff
-       allocateGlobalBinder, initNameCache
+       allocateGlobalBinder, initNameCache, 
    ) where
 
 #include "HsVersions.h"
@@ -23,10 +23,11 @@ import TyCon                ( TyCon, tyConName )
 import DataCon         ( dataConWorkId, dataConName )
 import Var             ( TyVar, Id, varName )
 import Name            ( Name, nameUnique, nameModule, 
-                         nameOccName, nameSrcLoc,
+                         nameOccName, nameSrcLoc, 
                          getOccName, nameParent_maybe,
                          isWiredInName, mkIPName,
                          mkExternalName, mkInternalName )
+
 import OccName         ( OccName, isTupleOcc_maybe, tcName, dataName,
                          lookupOccEnv, unitOccEnv, extendOccEnv, extendOccEnvList )
 import PrelNames       ( gHC_PRIM, pREL_TUP )
@@ -130,7 +131,6 @@ lookupOrig :: Module -> OccName -> TcRnIf a b Name
 -- Even if we get a miss in the original-name cache, we 
 -- make a new External Name. 
 -- We fake up 
---     Module to AnotherPackage
 --     SrcLoc to noSrcLoc
 --     Parent no Nothing
 -- They'll be overwritten, in due course, by LoadIface.loadDecl.