X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FVar.lhs;h=4ba7d89d5cefe6de310e74f6210f49145199219f;hp=60fdf3831c3c5de74a15612b80089db9189cf292;hb=38f4f2e06695db9e396e3ebaf97b870c4975c803;hpb=0a414c46dd2e812be2e6a1db5fd66f405b6143b7

diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs
index 60fdf38..4ba7d89 100644
--- a/compiler/basicTypes/Var.lhs
+++ b/compiler/basicTypes/Var.lhs
@@ -74,7 +74,7 @@ data Var
 	tcTyVarDetails :: TcTyVarDetails }
 
   | GlobalId { 			-- Used for imported Ids, dict selectors etc
-	varName    :: !Name,
+	varName    :: !Name,	-- Always an External or WiredIn Name
 	realUnique :: FastInt,
    	idType     :: Type,
 	idInfo     :: IdInfo,