diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/types/TyCon.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/types/TyCon.hs b/compiler/types/TyCon.hs index 628eabd171..55f64166c8 100644 --- a/compiler/types/TyCon.hs +++ b/compiler/types/TyCon.hs @@ -1365,7 +1365,8 @@ mkLiftedPrimTyCon :: Name -> [TyBinder] -> Kind -- ^ /result/ kind -> [Role] -> TyCon mkLiftedPrimTyCon name binders res_kind roles - = mkPrimTyCon' name binders res_kind roles False Nothing + = mkPrimTyCon' name binders res_kind roles False (Just rep_nm) + where rep_nm = mkPrelTyConRepName name mkPrimTyCon' :: Name -> [TyBinder] -> Kind -- ^ /result/ kind |