diff options
| author | David Waern <david.waern@gmail.com> | 2008-10-15 21:12:17 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-10-15 21:12:17 +0000 |
| commit | 69ae604ff60c7dfe47ff57b20a79b5f84a9dd85f (patch) | |
| tree | 5cb6ca645f2e825699b967bd432b41d9a1233d7b | |
| parent | 85752ab9d2c4a6dd492bce2d4fa1c4b1572682b9 (diff) | |
Comment out unused type family stuff completely
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 13 |
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 |