From dbcd0c930786df478959038071361f22d9d11c40 Mon Sep 17 00:00:00 2001 From: "tob.brandt" Date: Sat, 20 Nov 2010 17:04:40 +0000 Subject: add full qualification for undocumented names --- src/Haddock/Backends/Xhtml/Names.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Haddock/Backends/Xhtml') 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 -- cgit v1.2.3