[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