diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-11-05 22:25:50 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-11-05 22:25:50 +0000 |
| commit | b7b6aee89676d16ac620f0752900a3dbb74e5843 (patch) | |
| tree | 6f943623fd578f50a6c4e1ba48d8ec87a617f1cd /src/Haddock/Interface | |
| parent | 7251f83bb2c5ba94302bf766ecc25cbc1fc6f422 (diff) | |
Don't warn about not being able to link to wired/system/builtin-names
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 267428fe..844525cf 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -59,8 +59,9 @@ renameInterface renamingEnv mod = -- filter out certain built in type constructors using their string -- representation. TODO: use the Name constants from the GHC API. - strings = filter (`notElem` ["()", "[]", "(->)"]) - (map pretty missingNames) +-- strings = filter (`notElem` ["()", "[]", "(->)"]) +-- (map pretty missingNames) + strings = map pretty . filter (\n -> not (isSystemName n || isWiredInName n || isBuiltInSyntax n)) $ missingNames in do -- report things that we couldn't link to. Only do this for non-hidden |