diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2021-01-11 01:06:40 +0000 |
|---|---|---|
| committer | sheaf <sam.derbyshire@gmail.com> | 2022-03-11 16:46:26 +0100 |
| commit | e057bfc880d98fe872e3ee9291d2ee1cd3ceeccd (patch) | |
| tree | 6c244b9655ad5514174e45e2835c3e4087ce2525 | |
| parent | 5d14361971ec6e6c3dfca282e4b80b307087afe5 (diff) | |
Fix CollectPass instance to match TTG refactor
Companion to GHC !7614 (https://gitlab.haskell.org/ghc/ghc/-/merge_requests/7614)
| -rw-r--r-- | haddock-api/src/Haddock/Types.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs index 30f583b0..ba86f429 100644 --- a/haddock-api/src/Haddock/Types.hs +++ b/haddock-api/src/Haddock/Types.hs @@ -319,7 +319,8 @@ type instance NoGhcTc DocNameI = DocNameI type instance IdP DocNameI = DocName instance CollectPass DocNameI where - collectXXPat _ _ ext = dataConCantHappen ext + collectXXPat _ ext = dataConCantHappen ext + collectXXHsBindsLR ext = dataConCantHappen ext instance NamedThing DocName where getName (Documented name _) = name @@ -828,6 +829,7 @@ type instance XConDeclField DocNameI = NoExtField type instance XXConDeclField DocNameI = DataConCantHappen type instance XXPat DocNameI = DataConCantHappen +type instance XXHsBindsLR DocNameI a = DataConCantHappen type instance XCInjectivityAnn DocNameI = NoExtField |