From: apt <unknown>
Date: Fri, 6 Jul 2001 14:05:14 +0000 (+0000)
Subject: [project @ 2001-07-06 14:05:14 by apt]
X-Git-Tag: Approximately_9120_patches~1606
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=574b218dcfab79ec277beca2f729cc8ea8c078dc;p=ghc-hetmet.git

[project @ 2001-07-06 14:05:14 by apt]
fix eqType bug
---

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}