diff options
| author | David Waern <david.waern@gmail.com> | 2010-10-16 18:47:07 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-10-16 18:47:07 +0000 |
| commit | 1bd03d283f98d7841efd2ce4b75900f558e26c83 (patch) | |
| tree | ecee6085e910967e08f15a2dd688a364602066d2 /src/Haddock/Backends/Xhtml | |
| parent | 52a3bdb03333ef97f7d81a9b058eb07002b7909c (diff) | |
Style police
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
| -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) |