From b9c217ec0cf7d5f84ee4a70a63dd4455a388dc45 Mon Sep 17 00:00:00 2001 From: davve Date: Thu, 5 Oct 2006 16:49:59 +0000 Subject: Filter out more builtin type constructors from warning messages --- src/Main.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index df23987d..7b68fc4e 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -723,9 +723,10 @@ renameModule renamingEnv mod = missingNames = nub $ filter isExternalName (missingNames1 ++ missingNames2 ++ missingNames3) - -- filter out the "()" string (I haven't found the Name constant for () - -- in the GHC API) - strings = filter (/= "()") (map (showSDoc . ppr) missingNames) + -- filter out certain built in type constructors using their string + -- representation. TODO: use the Name constants from the GHC API. + strings = filter (`notElem` ["()", "[]", "(->)"]) + (map (showSDoc . ppr) missingNames) in do -- report things that we couldn't link to. Only do this for non-hidden -- cgit v1.2.3