diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-04-25 19:52:22 +0200 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-05-31 12:43:22 +0100 |
| commit | 89afef9daeb6da6624d42d32813d86c1f9b9f0c3 (patch) | |
| tree | 2f3e086632ee3438c9ec516786ef6e9768512cf8 /haddock-api/src/Haddock/Types.hs | |
| parent | 4dd5c93bded622a6e2e011dc7e2c8976454b53c5 (diff) | |
TTG: Match new GHC AST
Diffstat (limited to 'haddock-api/src/Haddock/Types.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Types.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs index 7d00c5ec..dc15dfe0 100644 --- a/haddock-api/src/Haddock/Types.hs +++ b/haddock-api/src/Haddock/Types.hs @@ -322,6 +322,7 @@ type instance IdP DocNameI = DocName instance CollectPass DocNameI where collectXXPat _ ext = dataConCantHappen ext collectXXHsBindsLR ext = dataConCantHappen ext + collectXSplicePat _ ext = dataConCantHappen ext instance NamedThing DocName where getName (Documented name _) = name @@ -750,7 +751,7 @@ type instance XOpTy DocNameI = EpAnn [AddEpAnn] type instance XParTy DocNameI = EpAnn AnnParen type instance XIParamTy DocNameI = EpAnn [AddEpAnn] type instance XKindSig DocNameI = EpAnn [AddEpAnn] -type instance XSpliceTy DocNameI = Void -- see `renameHsSpliceTy` +type instance XSpliceTy DocNameI = DataConCantHappen type instance XDocTy DocNameI = EpAnn [AddEpAnn] type instance XBangTy DocNameI = EpAnn [AddEpAnn] type instance XRecTy DocNameI = EpAnn [AddEpAnn] @@ -832,6 +833,8 @@ type instance XXConDeclField DocNameI = DataConCantHappen type instance XXPat DocNameI = DataConCantHappen type instance XXHsBindsLR DocNameI a = DataConCantHappen +type instance XSplicePat DocNameI = DataConCantHappen + type instance XCInjectivityAnn DocNameI = NoExtField type instance XCFunDep DocNameI = NoExtField |