diff options
| author | davve <davve@dtek.chalmers.se> | 2006-10-05 16:49:59 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-10-05 16:49:59 +0000 |
| commit | b9c217ec0cf7d5f84ee4a70a63dd4455a388dc45 (patch) | |
| tree | 63b53f0915453e0110e7e4c3cd79229cd3d81e80 /src/Main.hs | |
| parent | 3058c8f5fde5328f2291861d16ee2cb4c02bdee4 (diff) | |
Filter out more builtin type constructors from warning messages
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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 |