X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FVar.lhs;h=c52844b81ea17e6253d795836fc0af1854c94a3f;hp=4c49d850030db16e21afc29490ae0f9fd9edc47b;hb=5919794834e385b6f7bda7cfbb8061b93a298426;hpb=9e7dd142eeddc99ccfa9eada236371b267cfbdbb

diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs
index 4c49d85..c52844b 100644
--- a/compiler/basicTypes/Var.lhs
+++ b/compiler/basicTypes/Var.lhs
@@ -363,7 +363,7 @@ setIdNotExported id = ASSERT( isLocalId id )
 %************************************************************************
 
 \begin{code}
-isTyVar :: Var -> Bool
+isTyVar :: Var -> Bool		-- True of both type and coercion variables
 isTyVar (TyVar {})   = True
 isTyVar (TcTyVar {}) = True
 isTyVar _            = False