From a850ba86d88a4fb9c0bd175453a2580e544e3def Mon Sep 17 00:00:00 2001
From: alexbiehl <alex.biehl@gmail.com>
Date: Mon, 21 Aug 2017 22:06:35 +0200
Subject: Drop Avails from export list

---
 haddock-api/src/Haddock/Interface/Create.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'haddock-api')

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
-- 
cgit v1.2.3