aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-10-15 21:12:17 +0000
committerDavid Waern <david.waern@gmail.com>2008-10-15 21:12:17 +0000
commit69ae604ff60c7dfe47ff57b20a79b5f84a9dd85f (patch)
tree5cb6ca645f2e825699b967bd432b41d9a1233d7b
parent85752ab9d2c4a6dd492bce2d4fa1c4b1572682b9 (diff)
Comment out unused type family stuff completely
-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