From: simonmar <unknown>
Date: Mon, 16 Oct 2000 13:30:25 +0000 (+0000)
Subject: [project @ 2000-10-16 13:30:25 by simonmar]
X-Git-Tag: Approximately_9120_patches~3575
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=370e75dd765fc764b318311f96285a1c43669886;p=ghc-hetmet.git

[project @ 2000-10-16 13:30:25 by simonmar]
isLocalModule ==> isModuleInThisPackage
---

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