[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