diff options
| author | Gabor Greif <ggreif@gmail.com> | 2014-09-17 07:46:39 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2014-09-19 03:38:42 +0200 |
| commit | 7bd4babb933dbd52d26e40fdd6b2c572207bbc64 (patch) | |
| tree | 8b34547f973cb2eb7c2e476b522d6fd31d85d633 | |
| parent | 79c712528390bb170ea546fa8192cb6c9a0877ea (diff) | |
| download | haskell-7bd4babb933dbd52d26e40fdd6b2c572207bbc64.tar.gz | |
Supply a reasonable name (should be derived from d_name tho)
| -rw-r--r-- | 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 0a71293838..09981417a0 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 |