diff options
| author | Alex Biehl <alexbiehl@gmail.com> | 2020-12-08 19:42:52 +0100 |
|---|---|---|
| committer | Alexander Biehl <alexbiehl@gmail.com> | 2020-12-08 20:06:26 +0100 |
| commit | bc962c945af2955402c8bed66ccb310f35a1e676 (patch) | |
| tree | 834f1b6b61e752f0fd3b8cf8871a9e0c90078615 /haddock-api/src/Haddock/Backends/Xhtml.hs | |
| parent | 39996e2d2ef4b69706bf279a75575bde240b1f1f (diff) | |
Changes for GHC#17566
See https://gitlab.haskell.org/ghc/ghc/merge_requests/2469
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs index f80a9c05..541f40c4 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -407,7 +407,7 @@ ppJsonIndex odir maybe_source_url maybe_wiki_url unicode pkg qual_opt ifaces = d exportSubs _ = [] exportName :: ExportItem DocNameI -> [IdP DocNameI] - exportName ExportDecl { expItemDecl } = getMainDeclBinder (unLoc expItemDecl) + exportName ExportDecl { expItemDecl } = getMainDeclBinderI (unLoc expItemDecl) exportName ExportNoDecl { expItemName } = [expItemName] exportName _ = [] |