diff options
| author | Reid Barton <rwbarton@gmail.com> | 2014-06-30 17:27:14 -0400 |
|---|---|---|
| committer | Reid Barton <rwbarton@gmail.com> | 2014-06-30 17:28:25 -0400 |
| commit | c44da48c6d19b3d8cc0ba34328576683410f8ec2 (patch) | |
| tree | a657a5fa316a0c87fe72fbadf9392f6ba431e6db | |
| parent | 4ee4ab01c1d97845aecb7707ad2f9a80933e7a49 (diff) | |
| download | haskell-c44da48c6d19b3d8cc0ba34328576683410f8ec2.tar.gz | |
Remove extraneous debugging output (#9071)
| -rw-r--r-- | compiler/typecheck/TcRnTypes.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs index d054bc21df..bc536c17a8 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) |