Commit 1054e022 authored by rwbarton's avatar rwbarton Committed by Austin Seipp

Remove extraneous debugging output (#9071)

(cherry picked from commit c44da48c)
parent 2c95addb
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment