[commit: ghc] ghc-7.8: Remove extraneous debugging output (#9071) (1054e02)
git at git.haskell.org
git at git.haskell.org
Wed Jul 2 16:11:37 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : ghc-7.8
Link : http://ghc.haskell.org/trac/ghc/changeset/1054e022cd7627a9f313a2df32f8d5331c6a7453/ghc
>---------------------------------------------------------------
commit 1054e022cd7627a9f313a2df32f8d5331c6a7453
Author: Reid Barton <rwbarton at gmail.com>
Date: Mon Jun 30 17:27:14 2014 -0400
Remove extraneous debugging output (#9071)
(cherry picked from commit c44da48c6d19b3d8cc0ba34328576683410f8ec2)
>---------------------------------------------------------------
1054e022cd7627a9f313a2df32f8d5331c6a7453
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 bacaba6..44dc3fa 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)
More information about the ghc-commits
mailing list