aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authoralexbiehl <alex.biehl@gmail.com>2017-08-21 22:06:35 +0200
committeralexbiehl <alex.biehl@gmail.com>2017-08-21 22:06:35 +0200
commita850ba86d88a4fb9c0bd175453a2580e544e3def (patch)
tree69353cee2e5fbb8ad421725bbd4d8e1dca4ef7b5 /haddock-api/src/Haddock/Interface/Create.hs
parent7a71af839bd71992a36d97650004c73bf11fa436 (diff)
Drop Avails from export list
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Create.hs')
-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 292680a7..e8109e27 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 . unzip) mayExports
exports
| OptIgnoreExports `elem` opts = Nothing
| otherwise = exports0