From 0171137c3c5f29b5a5e72d18473e1c6843862e2b Mon Sep 17 00:00:00 2001 From: qrczak Date: Thu, 8 Mar 2001 18:05:31 +0000 Subject: [PATCH] [project @ 2001-03-08 18:05:31 by qrczak] s/setIdGlobalDetails/sedGlobalIdDetails/, and import it. --- ghc/compiler/main/HscMain.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4