[project @ 2003-01-06 15:29:27 by simonpj]

Small extra tc-trace

diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index 27365bd..32789f8 100644 (file)
--- 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)
     )                                          $