From 574b218dcfab79ec277beca2f729cc8ea8c078dc Mon Sep 17 00:00:00 2001
From: apt <unknown>
Date: Fri, 6 Jul 2001 14:05:14 +0000
Subject: [PATCH] [project @ 2001-07-06 14:05:14 by apt] fix eqType bug

---
 ghc/compiler/types/Type.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/types/Type.lhs b/ghc/compiler/types/Type.lhs
index 3ddb287..973074d 100644
--- a/ghc/compiler/types/Type.lhs
+++ b/ghc/compiler/types/Type.lhs
@@ -908,7 +908,7 @@ eq_ty env (TyConApp tc1 tys1) (TyConApp tc2 tys2) = (tc1 == tc2) && (eq_tys env
 eq_ty env t1		       t2		  = False
 
 eq_tys env []        []        = True
-eq_tys env (t1:tys1) (t2:tys2) = (eq_ty env t1 t2) && (eq_tys env tys2 tys2)
+eq_tys env (t1:tys1) (t2:tys2) = (eq_ty env t1 t2) && (eq_tys env tys1 tys2)
 eq_tys env tys1      tys2      = False
 \end{code}
 
-- 
1.7.10.4