Commit a17da16f authored by jpm@cs.ox.ac.uk's avatar jpm@cs.ox.ac.uk

FIX #7255: print tyConTyVars tc, not tc_args

parent a7147dfb
......@@ -224,7 +224,7 @@ canDoGenerics tc tc_args
(tc_name, tc_tys) = case tyConParent tc of
FamInstTyCon _ ptc tys -> (ppr ptc, hsep (map ppr
(tys ++ drop (length tys) tc_args)))
_ -> (ppr tc, hsep (map ppr tc_args))
_ -> (ppr tc, hsep (map ppr (tyConTyVars tc)))
-- If any of the constructor has an unboxed type as argument,
-- then we can't build the embedding-projection pair, because
......
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