From c5aa34a16ce3721261af044f7c3b37fda69dd0e5 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 16 Oct 2000 15:14:32 +0000 Subject: [PATCH] [project @ 2000-10-16 15:14:32 by simonmar] new: mkHomeModule for Modules in ThisPackage. --- ghc/compiler/basicTypes/Module.lhs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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. -- 1.7.10.4