From: simonmar <unknown>
Date: Wed, 27 Jun 2001 16:33:59 +0000 (+0000)
Subject: [project @ 2001-06-27 16:33:59 by simonmar]
X-Git-Tag: Approximately_9120_patches~1685
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e25c9d5ee995d2a2b8477f1d35bbb660aa603221;p=ghc-hetmet.git

[project @ 2001-06-27 16:33:59 by simonmar]
Print the contents of opt_InPackage rather than "<THIS>" for the home
package.
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index bb2b674..9b43ed7 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -117,7 +117,7 @@ preludePackage :: PackageName
 preludePackage = SLIT("std")
 
 packageInfoPackage :: PackageInfo -> PackageName
-packageInfoPackage ThisPackage        = SLIT("<THIS>")
+packageInfoPackage ThisPackage        = opt_InPackage
 packageInfoPackage DunnoYet	      = SLIT("<?>")
 packageInfoPackage (AnotherPackage p) = p