diff options
| author | David Waern <david.waern@gmail.com> | 2012-04-01 02:40:34 +0200 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2012-04-01 02:40:34 +0200 |
| commit | bc89bcc2b076c13ad559543ebba43603c8ab990c (patch) | |
| tree | 30c0a52a22ab4a302c9895c9d40cba060b61579b | |
| parent | 563302747deca1c66dff8ddf260e23153d310c73 (diff) | |
Fix crash when using --qual. Naughty GHC API!
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Names.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs index 7c2375cf..274078a6 100644 --- a/src/Haddock/Backends/Xhtml/Names.hs +++ b/src/Haddock/Backends/Xhtml/Names.hs @@ -52,7 +52,10 @@ ppDocName qual docName = case docName of Documented name mdl -> linkIdOcc mdl (Just (nameOccName name)) << ppQualifyName qual name mdl - Undocumented name -> ppQualifyName qual name (nameModule name) + Undocumented name + | isExternalName name || isWiredInName name -> + ppQualifyName qual name (nameModule name) + | otherwise -> ppName name -- | Render a name depending on the selected qualification mode |