[commit: ghc] master: Remove extraneous debugging output (#9071) (c44da48)
git at git.haskell.org
git at git.haskell.org
Mon Jun 30 21:29:11 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/c44da48c6d19b3d8cc0ba34328576683410f8ec2/ghc
>---------------------------------------------------------------
commit c44da48c6d19b3d8cc0ba34328576683410f8ec2
Author: Reid Barton <rwbarton at gmail.com>
Date: Mon Jun 30 17:27:14 2014 -0400
Remove extraneous debugging output (#9071)
>---------------------------------------------------------------
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 d054bc2..bc536c1 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -1852,8 +1852,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