From 370e75dd765fc764b318311f96285a1c43669886 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 16 Oct 2000 13:30:25 +0000 Subject: [PATCH] [project @ 2000-10-16 13:30:25 by simonmar] isLocalModule ==> isModuleInThisPackage --- ghc/compiler/basicTypes/Name.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs index a6c5940..4a8f45f 100644 --- a/ghc/compiler/basicTypes/Name.lhs +++ b/ghc/compiler/basicTypes/Name.lhs @@ -42,7 +42,7 @@ module Name ( import OccName -- All of it import Module ( Module, moduleName, pprModule, mkVanillaModule, - isLocalModule ) + isModuleInThisPackage ) import RdrName ( RdrName, mkRdrQual, mkRdrUnqual, rdrNameOcc, rdrNameModule ) import CmdLineOpts ( opt_Static, opt_PprStyle_NoPrags, @@ -342,7 +342,7 @@ isDllName :: Name -> Bool -- Does this name refer to something in a different DLL? isDllName nm = not opt_Static && not (isLocallyDefinedName nm) && -- isLocallyDefinedName test needed 'cos - not (isLocalModule (nameModule nm)) -- nameModule won't work on local names + not (isModuleInThisPackage (nameModule nm)) -- nameModule won't work on local names -- 1.7.10.4