X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnTypes.lhs;h=3c23921207adb680755cbf2e408d089b347b4f80;hp=b624a14a65340487d8efe04139b06df2b0f73a7e;hb=72e37dedee9e8a109ebda4b13e49b7133b530591;hpb=ecd655aaaa4ae495933415ad1ff6f6132ff3967f

diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs
index b624a14..3c23921 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -306,11 +306,15 @@ data TcLclEnv		-- Changes as we move inside an expression
 		-- Maintained during renaming, of course, but also during
 		-- type checking, solely so that when renaming a Template-Haskell
 		-- splice we have the right environment for the renamer.
+		--
+		-- Used only for names bound within a value binding (bound by
+		-- lambda, case, where, let etc), but *not* for top-level names.
+		-- 
+		-- Does *not* include global name envt; may shadow it
+		-- Includes both ordinary variables and type variables;
+		-- they are kept distinct because tyvar have a different
+		-- occurrence contructor (Name.TvOcc)
 		-- 
-		--   Does *not* include global name envt; may shadow it
-		--   Includes both ordinary variables and type variables;
-		--   they are kept distinct because tyvar have a different
-		--   occurrence contructor (Name.TvOcc)
 		-- We still need the unsullied global name env so that
     		--   we can look up record field names
 
@@ -598,15 +602,20 @@ data Inst
   | ImplicInst {	-- An implication constraint
 			-- forall tvs. (reft, given) => wanted
 	tci_name   :: Name,
-	tci_tyvars :: [TcTyVar],    -- Includes coercion variables
+	tci_tyvars :: [TcTyVar],    -- Quantified type variables
+				    -- Includes coercion variables
 				    --   mentioned in tci_reft
 	tci_reft   :: Refinement,
 	tci_given  :: [Inst],	    -- Only Dicts
 				    --   (no Methods, LitInsts, ImplicInsts)
 	tci_wanted :: [Inst],	    -- Only Dicts and ImplicInsts
 				    --   (no Methods or LitInsts)
+
 	tci_loc    :: InstLoc
     }
+	-- NB: the tci_given are not necessarily rigid,
+	--     although they will be if the tci_reft is non-trivial
+	-- NB: the tci_reft is already applied to tci_given and tci_wanted
 
   | Method {
 	tci_id :: TcId,		-- The Id for the Inst