From e25c9d5ee995d2a2b8477f1d35bbb660aa603221 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 27 Jun 2001 16:33:59 +0000
Subject: [PATCH] [project @ 2001-06-27 16:33:59 by simonmar] Print the
 contents of opt_InPackage rather than "<THIS>" for the home
 package.

---
 ghc/compiler/basicTypes/Module.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 
-- 
1.7.10.4