From 8a0c6ed44f619a8a845034b59b2804d422008cc4 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 23 Feb 2006 13:01:04 +0000
Subject: [PATCH] Fix comment

---
 ghc/compiler/typecheck/TcType.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/typecheck/TcType.lhs b/ghc/compiler/typecheck/TcType.lhs
index 448f10a..4b6e7b8 100644
--- a/ghc/compiler/typecheck/TcType.lhs
+++ b/ghc/compiler/typecheck/TcType.lhs
@@ -759,8 +759,8 @@ tcValidInstHeadTy ty
 	   where
 	     tvs = mapCatMaybes get_tv tys
 
-    get_tv (NoteTy _ ty) = get_tv ty 	-- through synonyms
-    get_tv (TyVarTy tv)  = Just tv	-- Again, do not look
+    get_tv (NoteTy _ ty) = get_tv ty 	-- Again, do not look
+    get_tv (TyVarTy tv)  = Just tv	-- through synonyms
     get_tv other  	 = Nothing
 \end{code}
 
-- 
1.7.10.4