aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Xhtml/Names.hs5
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