aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-02-07 13:22:29 +0000
committerDavid Waern <david.waern@gmail.com>2009-02-07 13:22:29 +0000
commit2672405f5736b95808efbe0084e5628e55cd4a63 (patch)
tree68dbf68f7f357a225c653c2615414fcfc59994ec /src/Haddock/Interface/Create.hs
parente09ee2fa2c8b1e74e8df8e60182ef5b6438a5d45 (diff)
Do not show a subordinate at the top level if its parent is also exported
See note in the source code for more info.
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
-rw-r--r--src/Haddock/Interface/Create.hs50
1 files changed, 44 insertions, 6 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 5d41fef2..8b927a68 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -377,12 +377,32 @@ mkExportItems modMap this_mod exported_names decls declMap
declWith :: Name -> ErrMsgM [ ExportItem Name ]
declWith t =
case findDecl t of
- Just x@(decl,_,_)
- -- temp hack: we filter out separately exported ATs, since we haven't decided how
- -- to handle them yet. We should really give an warning message also, and filter the
- -- name out in mkVisibleNames...
- | t `elem` declATs (unL decl) -> return []
- | otherwise -> return [ mkExportDecl t x ]
+ Just x@(decl,_,_) ->
+ let declName =
+ case getMainDeclBinder (unL decl) of
+ Just declName -> declName
+ Nothing -> error "declWith: should not happen"
+ in case () of
+ _
+ -- temp hack: we filter out separately exported ATs, since we haven't decided how
+ -- to handle them yet. We should really give an warning message also, and filter the
+ -- name out in mkVisibleNames...
+ | t `elem` declATs (unL decl) -> return []
+
+ -- We should not show a subordinate at the top level if its
+ -- parent is also exported. See note [1].
+ | declName /= t, isExported declName ->
+ do tell [
+ "Warning: " ++ moduleString this_mod ++ ": " ++
+ pretty (nameOccName t) ++ " is listed separately in " ++
+ "the export list, but " ++
+ "will be documented under its parent. " ++
+ "Consider exporting it through the parent "++
+ "export item only, for code clarity." ]
+ return []
+
+ -- normal case
+ | otherwise -> return [ mkExportDecl t x ]
Nothing ->
-- If we can't find the declaration, it must belong to another package.
-- We return just the name of the declaration and try to get the subs
@@ -403,6 +423,8 @@ mkExportItems modMap this_mod exported_names decls declMap
subs' = filter ((`elem` exported_names) . fst) subs
sub_names = map fst subs'
+ isExported n = n `elem` exported_names
+
fullContentsOf modname
| m == this_mod = return (fullContentsOfThisModule this_mod decls)
| otherwise =
@@ -435,6 +457,22 @@ mkExportItems modMap this_mod exported_names decls declMap
m = nameModule n
+-- Note [1]:
+------------
+-- We should not show a subordinate at the top level if its parent is also
+-- exported. We should show it under the parent to indicate its special
+-- status as a class method or record field. Showing it again makes no sense.
+--
+-- A user might expect that it should show up separately, so we issue a
+-- warning. It's a fine opportunity to also tell the user she might want to
+-- export the subordinate through the same export item for clarity.
+--
+-- The code removes top-level subordinates also when the parent is exported
+-- through a 'module' export. I think that is fine.
+--
+-- (For more information, see Trac #69)
+
+
fullContentsOfThisModule :: Module -> [DeclInfo] -> [ExportItem Name]
fullContentsOfThisModule module_ decls = catMaybes (map mkExportItem decls)
where