projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
42523cb
)
[project @ 2001-06-27 16:33:59 by simonmar]
author
simonmar
<unknown>
Wed, 27 Jun 2001 16:33:59 +0000
(16:33 +0000)
committer
simonmar
<unknown>
Wed, 27 Jun 2001 16:33:59 +0000
(16:33 +0000)
Print the contents of opt_InPackage rather than "<THIS>" for the home
package.
ghc/compiler/basicTypes/Module.lhs
patch
|
blob
|
history
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