From e2c0a757f5aae215d89e464a7e45f9777c27c8f0 Mon Sep 17 00:00:00 2001 From: Ryan Scott Date: Mon, 6 Jan 2020 18:02:21 -0500 Subject: Changes for GHC#17608 See https://gitlab.haskell.org/ghc/ghc/merge_requests/2372 --- haddock-api/src/Haddock/Interface/Create.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'haddock-api/src') 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'. -- cgit v1.2.3