[commit: ghc] master: FIX #7255: print tyConTyVars tc, not tc_args (a17da16)
José Pedro Magalhães <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master http://hackage.haskell.org/trac/ghc/changeset/a17da16f08ae24e24ebe671d0731c43b240008f5 >--------------------------------------------------------------- commit a17da16f08ae24e24ebe671d0731c43b240008f5 Author: Jose Pedro Magalhaes <[email protected]> Date: Fri Sep 21 10:40:24 2012 +0100 FIX #7255: print tyConTyVars tc, not tc_args >--------------------------------------------------------------- compiler/typecheck/TcGenGenerics.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcGenGenerics.lhs b/compiler/typecheck/TcGenGenerics.lhs index 8745f8e..fbb600c 100644 --- a/compiler/typecheck/TcGenGenerics.lhs +++ b/compiler/typecheck/TcGenGenerics.lhs @@ -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