Commit c44da48c authored by rwbarton's avatar rwbarton

Remove extraneous debugging output (#9071)

parent 4ee4ab01
......@@ -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)
......
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