From ab6cfc49cc33eaa2879f4e615f10ef0a1d3f362a Mon Sep 17 00:00:00 2001 From: davve Date: Sun, 4 Feb 2007 17:59:54 +0000 Subject: Do not list entities without documentation --- src/Main.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src') diff --git a/src/Main.hs b/src/Main.hs index 59e4b751..31d109e1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -874,11 +874,7 @@ mkExportItems mod_map this_mod exported_names exportedDeclMap localDeclMap sub_m | (Just decl, maybeDoc) <- findDecl t = return [ ExportDecl t (restrictTo subs (extractDecl t mdl decl)) maybeDoc [] ] | otherwise - = return [ ExportNoDecl t t subs ] - -- can't find the decl (it might be from another package), but let's - -- list the entity anyway. Later on, the renamer will change the - -- orig name into the import name, so we get a proper link to - -- the doc for this entity. + = return [] where mdl = nameModule t subs = filter (`elem` exported_names) all_subs -- cgit v1.2.3