Add comment

diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs
index 60fdf38..4ba7d89 100644 (file)
--- 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,