Commit 97ee3b24 authored by simonpj's avatar simonpj
Browse files

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

Small extra tc-trace
parent b708d7d8
......@@ -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)
) $
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment