aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface/Create.hs13
1 files changed, 6 insertions, 7 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 2277e5b2..5b57324e 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -57,7 +57,7 @@ createInterface ghcMod flags modMap = do
decls = topDecls group
decls' = filterOutInstances decls
declMap = mkDeclMap decls'
- famMap = Map.empty --mkFamMap decls'
+-- famMap = mkFamMap decls'
ignoreExps = Flag_IgnoreAllExports `elem` flags
exportedNames = ghcExportedNames ghcMod
instances = ghcInstances ghcMod
@@ -69,7 +69,7 @@ createInterface ghcMod flags modMap = do
subMap exports opts declMap
exportItems <- mkExportItems modMap mod (ghcExportedNames ghcMod) decls' declMap
- famMap subMap opts exports ignoreExps instances
+ subMap opts exports ignoreExps instances
-- prune the export list to just those declarations that have
-- documentation, if the 'prune' option is on.
@@ -137,9 +137,9 @@ type Doc = HsDoc Name
type DeclWithDoc = (Decl, Maybe Doc)
--- | A list of type or data instance declarations with an optional family
--- declaration.
-type Family = (Maybe DeclWithDoc, [DeclWithDoc])
+-- A list of type or data instance declarations with an optional family
+-- declaration.
+-- type Family = (Maybe DeclWithDoc, [DeclWithDoc])
-- | Make a map from names to declarations with documentation. The map excludes
@@ -370,7 +370,6 @@ mkExportItems
-> [Name] -- exported names (orig)
-> [(Decl, Maybe Doc)]
-> Map Name DeclWithDoc -- maps local names to declarations
- -> Map Name Family
-> Map Name [Name] -- sub-map for this module
-> [DocOption]
-> Maybe [IE Name]
@@ -378,7 +377,7 @@ mkExportItems
-> [Instance]
-> ErrMsgM [ExportItem Name]
-mkExportItems modMap this_mod exported_names decls declMap famMap sub_map
+mkExportItems modMap this_mod exported_names decls declMap sub_map
opts maybe_exps ignore_all_exports instances
| isNothing maybe_exps || ignore_all_exports || OptIgnoreExports `elem` opts
= everything_local_exported