From: simonpj@microsoft.com <unknown>
Date: Thu, 23 Feb 2006 13:01:04 +0000 (+0000)
Subject: Fix comment
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8a0c6ed44f619a8a845034b59b2804d422008cc4;p=ghc-hetmet.git

Fix comment
---

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}