diff options
| author | Richard Eisenberg <rae@richarde.dev> | 2021-01-04 11:07:00 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-09 21:19:45 -0500 |
| commit | c8c63dde01686a96af4dabcced78110368efaec3 (patch) | |
| tree | b8801ecd61c343c18cf05fee157886e37554b244 /compiler/GHC/Tc/TyCl/Instance.hs | |
| parent | f88fb8c7d803f9d3bf245fa4bd9c50f7a2bd3c5b (diff) | |
| download | haskell-c8c63dde01686a96af4dabcced78110368efaec3.tar.gz | |
Never Anyify during kind inference
See Note [Error on unconstrained meta-variables] in TcMType.
Close #17301
Close #17567
Close #17562
Close #15474
Diffstat (limited to 'compiler/GHC/Tc/TyCl/Instance.hs')
| -rw-r--r-- | compiler/GHC/Tc/TyCl/Instance.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/GHC/Tc/TyCl/Instance.hs b/compiler/GHC/Tc/TyCl/Instance.hs index 11a10baf29..69656b41da 100644 --- a/compiler/GHC/Tc/TyCl/Instance.hs +++ b/compiler/GHC/Tc/TyCl/Instance.hs @@ -912,9 +912,10 @@ tcDataFamInstHeader mb_clsinfo fam_tc outer_bndrs fixity ; reportUnsolvedEqualities FamInstSkol qtvs tclvl wanted -- Zonk the patterns etc into the Type world - ; (ze, qtvs) <- zonkTyBndrs qtvs - ; lhs_ty <- zonkTcTypeToTypeX ze lhs_ty - ; stupid_theta <- zonkTcTypesToTypesX ze stupid_theta + ; ze <- mkEmptyZonkEnv NoFlexi + ; (ze, qtvs) <- zonkTyBndrsX ze qtvs + ; lhs_ty <- zonkTcTypeToTypeX ze lhs_ty + ; stupid_theta <- zonkTcTypesToTypesX ze stupid_theta ; master_res_kind <- zonkTcTypeToTypeX ze master_res_kind ; instance_res_kind <- zonkTcTypeToTypeX ze instance_res_kind |