diff options
author | David Waern <david.waern@gmail.com> | 2011-10-01 01:56:48 +0200 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2011-10-01 01:56:48 +0200 |
commit | a26a25d047f68051f9e1419a0cec515b62ad7e21 (patch) | |
tree | f93f0f390ed3ac6a704cd614685b249736f15c14 /src/Haddock/Backends | |
parent | 64c6e2464fb3a9207e01b01a17c815284e49808b (diff) | |
parent | b50695a86358fd02b9a0ececbc107bf5274d5f95 (diff) |
Merge branch 'development'
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 600a5362..b639760d 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -41,6 +41,7 @@ import System.FilePath hiding ( (</>) ) import System.Directory import Data.Map ( Map ) import qualified Data.Map as Map hiding ( Map ) +import qualified Data.Set as Set hiding ( Set ) import Data.Function import Data.Ord ( comparing ) @@ -415,9 +416,11 @@ ppHtmlIndex odir doctitle _maybe_package themes getIfaceIndex iface = [ (getOccString name - , Map.fromList [(name, [(mdl, name `elem` instVisibleExports iface)])]) + , Map.fromList [(name, [(mdl, name `Set.member` visible)])]) | name <- instExports iface ] - where mdl = instMod iface + where + mdl = instMod iface + visible = Set.fromList (instVisibleExports iface) indexElt :: (String, Map GHC.Name [(Module,Bool)]) -> HtmlTable indexElt (str, entities) = |