[commit: haddock] ghc-head, ghc-head1, ie_avails, wip/revert-ttg-2017-11-20, wip/ttg-2017-10-13, wip/ttg-2017-10-31, wip/ttg-2017-11-06, wip/ttg2-2017-11-10, wip/ttg3-2017-11-12, wip/ttg4-constraints-2017-11-13: Drop Avails from export list (a850ba8)

git at git.haskell.org git at git.haskell.org
Mon Nov 20 21:10:03 UTC 2017


Repository : ssh://git@git.haskell.org/haddock

On branches: ghc-head,ghc-head1,ie_avails,wip/revert-ttg-2017-11-20,wip/ttg-2017-10-13,wip/ttg-2017-10-31,wip/ttg-2017-11-06,wip/ttg2-2017-11-10,wip/ttg3-2017-11-12,wip/ttg4-constraints-2017-11-13
Link       : http://git.haskell.org/haddock.git/commitdiff/a850ba86d88a4fb9c0bd175453a2580e544e3def

>---------------------------------------------------------------

commit a850ba86d88a4fb9c0bd175453a2580e544e3def
Author: alexbiehl <alex.biehl at gmail.com>
Date:   Mon Aug 21 22:06:35 2017 +0200

    Drop Avails from export list


>---------------------------------------------------------------

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

diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index 292680a..e8109e2 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



More information about the ghc-commits mailing list