From: simonpj@microsoft.com <unknown>
Date: Mon, 11 Dec 2006 15:50:35 +0000 (+0000)
Subject: Remove strange extra print (a temporary debug?)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d2359864dfb6d8cc419b8ee55f1948c93f796d0b

Remove strange extra print (a temporary debug?)
---

diff --git a/compiler/typecheck/TcPat.lhs b/compiler/typecheck/TcPat.lhs
index f945292..8dd5a7a 100644
--- a/compiler/typecheck/TcPat.lhs
+++ b/compiler/typecheck/TcPat.lhs
@@ -919,8 +919,7 @@ sigPatCtxt pats bound_tvs pat_tys body_ty tidy_env
 		 sep [ptext SLIT("When checking an existential match that binds"),
 		      nest 4 (vcat (zipWith ppr_id show_ids tidy_tys)),
 		      ptext SLIT("The pattern(s) have type(s):") <+> vcat (map ppr tidy_pat_tys),
-		      ptext SLIT("The body has type:") <+> ppr tidy_body_ty,
-		      ppr pats
+		      ptext SLIT("The body has type:") <+> ppr tidy_body_ty
 		]) }
   where
     bound_ids = collectPatsBinders pats