diff options
| author | tob.brandt <tob.brandt@gmail.com> | 2010-11-20 17:04:40 +0000 |
|---|---|---|
| committer | tob.brandt <tob.brandt@gmail.com> | 2010-11-20 17:04:40 +0000 |
| commit | dbcd0c930786df478959038071361f22d9d11c40 (patch) | |
| tree | e7ad9cf9acf678d875608650850b05482e70f945 /src/Haddock | |
| parent | 77cc272c24d5ba1819be7155b45697de1f906a89 (diff) | |
add full qualification for undocumented names
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Names.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs index 406b8995..849f6a28 100644 --- a/src/Haddock/Backends/Xhtml/Names.hs +++ b/src/Haddock/Backends/Xhtml/Names.hs @@ -66,8 +66,7 @@ qualifyName qual docName@(Documented name mdl) = case qual of -- some other module, D.x -> D.x Nothing -> qualifyName FullQual docName --- this is just for exhaustiveness, but already handled by ppDocName -qualifyName _ (Undocumented name) = ppName name +qualifyName qual (Undocumented name) = qualifyName qual (Documented name (nameModule name)) ppDocName :: Qualification -> DocName -> Html @@ -75,7 +74,7 @@ ppDocName qual docName@(Documented name mdl) = linkIdOcc mdl (Just occName) << qualifyName qual docName where occName = nameOccName name -ppDocName _ (Undocumented name) = ppName name +ppDocName qual docName@(Undocumented name) = qualifyName qual docName ppFullQualName :: Module -> Name -> Html |