aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2017-09-05 06:20:53 -0400
committerBen Gamari <ben@smart-cactus.org>2017-09-05 06:49:55 -0400
commit5fa4ef3028dfded480f7d54e4c736862e8892223 (patch)
treec378560ccbaff9627f64036eaa87fcf70a25cb3c
parent815d2deb9c0222c916becccf8464b740c26255fd (diff)
Account for "Remember the AvailInfo for each IE"
As of GHC commit f609374a55bdcf3b79f3a299104767aae2ffbf21 GHC retains the AvailInfo associated with each IE. @alexbiehl has a patch making proper use of this change, but this is just to keep things building.
-rw-r--r--haddock-api/src/Haddock/Interface/Create.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index 62bdbcbe..d9f37a4f 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -105,7 +105,7 @@ createInterface tm flags modMap instIfaceMap = do
let declsWithDocs = topDecls group_
- exports0 = fmap (reverse . map unLoc) mayExports
+ exports0 = fmap (reverse . map (unLoc . fst)) mayExports
exports
| OptIgnoreExports `elem` opts = Nothing
| otherwise = exports0