From 1bd03d283f98d7841efd2ce4b75900f558e26c83 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 16 Oct 2010 18:47:07 +0000 Subject: Style police --- src/Haddock/Backends/Xhtml/Names.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Haddock/Backends') 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) -- cgit v1.2.3