From 1054e022cd7627a9f313a2df32f8d5331c6a7453 Mon Sep 17 00:00:00 2001
From: Reid Barton <rwbarton@gmail.com>
Date: Mon, 30 Jun 2014 17:27:14 -0400
Subject: [PATCH] Remove extraneous debugging output (#9071)
(cherry picked from commit c44da48c6d19b3d8cc0ba34328576683410f8ec2)
---
compiler/typecheck/TcRnTypes.lhs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs
index bacaba62f5af..44dc3faa1e67 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -1845,8 +1845,7 @@ pprO TupleOrigin = ptext (sLit "a tuple")
pprO NegateOrigin = ptext (sLit "a use of syntactic negation")
pprO ScOrigin = ptext (sLit "the superclasses of an instance declaration")
pprO DerivOrigin = ptext (sLit "the 'deriving' clause of a data type declaration")
-pprO (DerivOriginDC dc n) = pprTrace "dco" (ppr dc <+> ppr n) $
- hsep [ ptext (sLit "the"), speakNth n,
+pprO (DerivOriginDC dc n) = hsep [ ptext (sLit "the"), speakNth n,
ptext (sLit "field of"), quotes (ppr dc),
parens (ptext (sLit "type") <+> quotes (ppr ty)) ]
where ty = dataConOrigArgTys dc !! (n-1)
--
GitLab