From: simonpj@microsoft.com <unknown>
Date: Wed, 25 Apr 2007 16:12:44 +0000 (+0000)
Subject: Fix misleading debug trace
X-Git-Tag: 2007-05-06~53
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=58b05365235ae6ea3940430700a642dfe5593986

Fix misleading debug trace
---

diff --git a/compiler/types/Type.lhs b/compiler/types/Type.lhs
index db90b8c..7d42d8c 100644
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -1221,7 +1221,7 @@ zipTopTvSubst :: [TyVar] -> [Type] -> TvSubst
 zipTopTvSubst tyvars tys 
 #ifdef DEBUG
   | length tyvars /= length tys
-  = pprTrace "zipOpenTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst
+  = pprTrace "zipTopTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst
   | otherwise
 #endif
   = TvSubst emptyInScopeSet (zipTyEnv tyvars tys)