From: qrczak <unknown>
Date: Thu, 8 Mar 2001 18:05:31 +0000 (+0000)
Subject: [project @ 2001-03-08 18:05:31 by qrczak]
X-Git-Tag: Approximately_9120_patches~2444
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0171137c3c5f29b5a5e72d18473e1c6843862e2b;p=ghc-hetmet.git

[project @ 2001-03-08 18:05:31 by qrczak]
s/setIdGlobalDetails/sedGlobalIdDetails/, and import it.
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index c8c5bdd..2e2fcff 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -16,7 +16,7 @@ module HscMain ( HscResult(..), hscMain,
 import RdrHsSyn		( RdrNameStmt )
 import Rename		( renameStmt )
 import ByteCodeGen	( byteCodeGen )
-import Id		( Id, idName )
+import Id		( Id, idName, setGlobalIdDetails )
 import IdInfo		( GlobalIdDetails(VanillaGlobal) )
 import HscTypes		( InteractiveContext(..), TyThing(..) )
 #endif
@@ -506,7 +506,7 @@ hscStmt dflags hst hit pcs0 icontext stmt just_expr
 		-- using these ids later, the byte code generator will consider
 		-- the occurrences to be free rather than global.
 	     global_bound_ids = map globaliseId bound_ids;
-	     globaliseId id   = setIdGlobalDetails id VanillaGlobal
+	     globaliseId id   = setGlobalIdDetails id VanillaGlobal
 
 	; return (pcs2, Just (global_bound_ids, ty, bcos))