diff options
Diffstat (limited to 'src/Haddock/Backends')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Names.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs index d1423fc7..4d9f0739 100644 --- a/src/Haddock/Backends/Xhtml/Names.hs +++ b/src/Haddock/Backends/Xhtml/Names.hs @@ -42,6 +42,7 @@ ppRdrName = ppOccName . rdrNameOcc ppLDocName :: Qualification -> Located DocName -> Html ppLDocName qual (L _ d) = ppDocName qual d + -- | Render a name depending on the selected qualification mode qualifyName :: Qualification -> DocName -> Html qualifyName qual docName@(Documented name mdl) = case qual of @@ -69,6 +70,7 @@ qualifyName qual docName@(Documented name mdl) = case qual of -- this is just for exhaustiveness, but already handled by ppDocName qualifyName _ (Undocumented name) = ppName name + ppDocName :: Qualification -> DocName -> Html ppDocName qual docName@(Documented name mdl) = linkIdOcc mdl (Just occName) << qualifyName qual docName @@ -76,9 +78,11 @@ ppDocName qual docName@(Documented name mdl) = ppDocName _ (Undocumented name) = ppName name + ppFullQualName :: Module -> Name -> Html ppFullQualName mdl name = toHtml $ moduleString mdl ++ '.' : getOccString name + ppName :: Name -> Html ppName name = toHtml (getOccString name) |