X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcEnv.lhs;h=b0678c7964278c0b505c4660263c553f1f04c2f5;hb=7129b3c1fb6386212ce0a544dd4dafcf96b2a106;hp=259e946ea363443e91cf61aed3c9c0a0663d7425;hpb=08a9d7341402232672fcff9062454e6ba1ae8bd1;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcEnv.lhs b/compiler/typecheck/TcEnv.lhs
index 259e946..b0678c7 100644
--- a/compiler/typecheck/TcEnv.lhs
+++ b/compiler/typecheck/TcEnv.lhs
@@ -68,7 +68,6 @@ import TyCon
 import TypeRep
 import Class
 import Name
-import PrelNames
 import NameEnv
 import OccName
 import HscTypes
@@ -590,8 +589,7 @@ tcMetaTy tc_name = do
 thRnBrack :: ThStage
 -- Used *only* to indicate that we are inside a TH bracket during renaming
 -- Tested by TcEnv.isBrackStage
--- This is a slight hack, used to ensure that 
---   * top-level 
+-- See Note [Top-level Names in Template Haskell decl quotes]
 thRnBrack = Brack (panic "thRnBrack1") (panic "thRnBrack2") (panic "thRnBrack3") 
 
 isBrackStage :: ThStage -> Bool