Repository : ssh://darcs.haskell.org//srv/darcs/haddock On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/bc89bcc2b076c13ad559543ebba43603c8ab990c >--------------------------------------------------------------- commit bc89bcc2b076c13ad559543ebba43603c8ab990c Author: David Waern <[email protected]> Date: Sun Apr 1 02:40:34 2012 +0200 Fix crash when using --qual. Naughty GHC API! >--------------------------------------------------------------- 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 7c2375c..274078a 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
