diff options
| -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 |