diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2020-01-06 18:02:21 -0500 |
|---|---|---|
| committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2020-01-08 07:41:13 -0500 |
| commit | e2c0a757f5aae215d89e464a7e45f9777c27c8f0 (patch) | |
| tree | 86f1ee7ca6517bc2821ea5151768a8661cd352ef | |
| parent | c67c24fc90e8217c3d2139e99e92889e1df180f8 (diff) | |
Changes for GHC#17608
See https://gitlab.haskell.org/ghc/ghc/merge_requests/2372
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs index 985bffea..73857a90 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -540,9 +540,10 @@ topDecls = -- | Extract a map of fixity declarations only mkFixMap :: HsGroup GhcRn -> FixMap -mkFixMap group_ = M.fromList [ (n,f) - | L _ (FixitySig _ ns f) <- hs_fixds group_, - L _ n <- ns ] +mkFixMap group_ = + M.fromList [ (n,f) + | L _ (FixitySig _ ns f) <- hsGroupTopLevelFixitySigs group_, + L _ n <- ns ] -- | Take all declarations except pragmas, infix decls, rules from an 'HsGroup'. |