diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-12-16 09:29:51 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-12-16 09:29:51 +0100 |
| commit | b29a78ef6926101338f62e84f456dac8659dc9d2 (patch) | |
| tree | 6a7e6bb7c9fc2e7d2407418ffb355aee21e2f553 /haddock-api/src/Haddock/GhcUtils.hs | |
| parent | f7bfa0013f2bc3934a63ea7af21fe41a4e91058b (diff) | |
Bump ghc-head (#1445)
* Update after NoExtCon -> DataConCantHappen rename
* Update html-test for Data.List revert
* Fix for new Plugins datatype
Co-authored-by: Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io>
Co-authored-by: Matthew Pickering <matthewtpickering@gmail.com>
Diffstat (limited to 'haddock-api/src/Haddock/GhcUtils.hs')
| -rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs index 599404a0..85e6fcf4 100644 --- a/haddock-api/src/Haddock/GhcUtils.hs +++ b/haddock-api/src/Haddock/GhcUtils.hs @@ -114,7 +114,7 @@ pretty = showPpr -- instantiated at DocNameI instead of (GhcPass _). -- | Like 'hsTyVarName' from GHC API, but not instantiated at (GhcPass _) -hsTyVarBndrName :: forall flag n. (XXTyVarBndr n ~ NoExtCon, UnXRec n) +hsTyVarBndrName :: forall flag n. (XXTyVarBndr n ~ DataConCantHappen, UnXRec n) => HsTyVarBndr flag n -> IdP n hsTyVarBndrName (UserTyVar _ _ name) = unXRec @n name hsTyVarBndrName (KindedTyVar _ _ name _) = unXRec @n name |