From 97ee3b2415a81c20f11aea75a59a54e2556f6f12 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 6 Jan 2003 15:29:27 +0000
Subject: [PATCH] [project @ 2003-01-06 15:29:27 by simonpj] Small extra
 tc-trace

---
 ghc/compiler/typecheck/TcBinds.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index 27365bd..32789f8 100644
--- a/ghc/compiler/typecheck/TcBinds.lhs
+++ b/ghc/compiler/typecheck/TcBinds.lhs
@@ -243,6 +243,7 @@ tcBindWithSigs top_lvl mbind sigs is_rec
 			    Just sig -> tcSigPolyId sig			-- Signature
 			    Nothing  -> mkLocalId name forall_a_a      	-- No signature
 	in
+	traceTc (text "tcBindsWithSigs: error recovery" <+> ppr binder_names) 	`thenM_`
 	returnM (EmptyMonoBinds, poly_ids)
     )						$
 
-- 
1.7.10.4