[commit: ghc] wip/generics-propeq-conservative: Supply a reasonable name (should be derived from d_name tho) (7bd4bab)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/generics-propeq-conservative
Link       : http://ghc.haskell.org/trac/ghc/changeset/7bd4babb933dbd52d26e40fdd6b2c572207bbc64/ghc

>---------------------------------------------------------------

commit 7bd4babb933dbd52d26e40fdd6b2c572207bbc64
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Sep 17 07:46:39 2014 +0200

    Supply a reasonable name (should be derived from d_name tho)


>---------------------------------------------------------------

7bd4babb933dbd52d26e40fdd6b2c572207bbc64
 compiler/typecheck/TcGenGenerics.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcGenGenerics.lhs b/compiler/typecheck/TcGenGenerics.lhs
index 0a71293..0998141 100644
--- a/compiler/typecheck/TcGenGenerics.lhs
+++ b/compiler/typecheck/TcGenGenerics.lhs
@@ -100,7 +100,7 @@ genGenericMetaTyCons tc mod =
                     newGlobalBinder mod (s_occ m n) loc
 
       let metaDTyCon  = mkTyCon [] d_name
-          metaCTyCons = map (\c_name -> mkTyConApp (mkTyCon [mkTyVar undefined openTypeKind] c_name) [mkTyConTy metaDTyCon]) c_names
+          metaCTyCons = map (\c_name -> mkTyConApp (mkTyCon [mkTyVar c_name openTypeKind] c_name) [mkTyConTy metaDTyCon]) c_names
           metaSTyCons = map (map $ mkTyCon []) s_names
 
           metaDts = MetaTyCons metaDTyCon metaCTyCons metaSTyCons