aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordavve <davve@dtek.chalmers.se>2006-09-15 18:37:57 +0000
committerdavve <davve@dtek.chalmers.se>2006-09-15 18:37:57 +0000
commitbef0a684d00eb4f167dbd8075e282a09f477e96d (patch)
treefc4ff5585490c3c12ec64e8d00b40f464186f144 /src
parentb8a4cf53c2d468970a173ba226e57e48922b1295 (diff)
Don't warn about missing links to ()
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs13
1 files changed, 8 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 48a78d46..1b8116fc 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -55,9 +55,9 @@ import FastString
#define FSLIT(x) (mkFastString# (x#))
import DynFlags hiding ( Option )
+import Packages hiding ( package )
import StaticFlags ( parseStaticFlags )
import Unique ( mkUnique )
-import Packages hiding ( package )
-----------------------------------------------------------------------------
-- Top-level stuff
@@ -714,9 +714,12 @@ renameModule renamingEnv mod =
(finalModuleDoc, missingNames3)
= runRnFM localEnv (renameMaybeDoc (hmod_doc mod))
- missingNames = nub $ filter isExternalName
- (missingNames1 ++ missingNames2 ++ missingNames3)
- strings = map (showSDoc . ppr) missingNames
+ missingNames = nub $ filter isExternalName
+ (missingNames1 ++ missingNames2 ++ missingNames3)
+
+ -- I haven't found the Name constant for () in the GHC API, so we have to
+ -- filter out the "()" string instead
+ strings = filter (/= "()") (map (showSDoc . ppr) missingNames)
in do
-- report things that we couldn't link to. Only do this for non-hidden modules.
@@ -728,7 +731,7 @@ renameModule renamingEnv mod =
return $ mod { hmod_rn_doc = finalModuleDoc,
hmod_rn_doc_map = rnDocMap,
hmod_rn_export_items = renamedExportItems }
-
+
-- -----------------------------------------------------------------------------
-- Build the list of items that will become the documentation, from the
-- export list. At this point, the list of ExportItems is in terms of