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

[project @ 2000-10-16 15:14:32 by simonmar]
new: mkHomeModule for Modules in ThisPackage.
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 96b50b7..c297d2d 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -34,10 +34,10 @@ module Module
     , moduleUserString		-- :: Module -> UserString
     , moduleName		-- :: Module -> ModuleName
 
-    , mkVanillaModule	    -- :: ModuleName -> Module
---    , mkThisModule	    -- :: ModuleName -> Module
+    , mkVanillaModule	        -- :: ModuleName -> Module
     , mkPrelModule		-- :: UserString -> Module
-    , mkModule			-- :: ModuleName -> ModuleKind -> Module
+    , mkModule			-- :: ModuleName -> PackageName -> Module
+    , mkHomeModule		-- :: ModuleName -> Module
 
 --    , mkSrcModule
 
@@ -223,6 +223,8 @@ mkModule mod_nm pack_name
     pack_info | pack_name == opt_InPackage = ThisPackage
 	      | otherwise		   = AnotherPackage pack_name
 
+mkHomeModule :: ModuleName -> Module
+mkHomeModule mod_nm = Module mod_nm ThisPackage
 
 -- Used temporarily when we first come across Foo.x in an interface
 -- file, but before we've opened Foo.hi.