-pcDataTyCon :: Unique{-TyConKey-} -> FAST_STRING -> FAST_STRING -> [TyVar] -> [Id] -> TyCon
-pcDataTyCon key mod name tyvars cons
- = mkDataTyCon key tycon_kind full_name tyvars
- [{-no context-}] cons [{-no derivings-}]
+pcDataTyCon :: Unique{-TyConKey-} -> Module -> FAST_STRING
+ -> [TyVar] -> [Id] -> TyCon
+pcDataTyCon key mod str tyvars cons
+ = mkDataTyCon (mkBuiltinName key mod str) tycon_kind
+ tyvars [{-no context-}] cons [{-no derivings-}]