From e05c48731b6af1a8c71c0f379cf16c7079b93fa3 Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 6 Nov 2007 00:49:21 +0000 Subject: Filter out instances with TyCons that are not exported --- src/Haddock/Interface.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src/Haddock/Interface.hs') diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index e27aefb1..4b178bf4 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -41,12 +41,15 @@ createInterfaces modules externalLinks flags = (interfaces, homeLinks, messages) -- part 1, create the interfaces interfaces <- createInterfaces' modules flags - -- part 2, attach the instances - let interfaces' = attachInstances interfaces - - -- part 3, rename the interfaces + -- part 2, build the link environment let homeLinks = buildHomeLinks interfaces let links = homeLinks `Map.union` externalLinks + let allNames = Map.keys links + + -- part 3, attach the instances + let interfaces' = attachInstances interfaces allNames + + -- part 3, rename the interfaces interfaces'' <- mapM (renameInterface links) interfaces' return (interfaces'', homeLinks) -- cgit v1.2.3