[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 (file)
--- 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