diff options
| -rw-r--r-- | src/Haddock/Backends/Xhtml/DocMarkup.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs index 28f8c782..3ed36ed9 100644 --- a/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -18,6 +18,7 @@ module Haddock.Backends.Xhtml.DocMarkup ( docElement, docSection, maybeDocSection, ) where + import Haddock.Backends.Xhtml.Names import Haddock.Backends.Xhtml.Utils import Haddock.GhcUtils @@ -72,29 +73,31 @@ parHtmlMarkup ppId isTyCon = Markup { htmlExpression = (strong . thecode . toHtml $ expression ++ "\n") ! [theclass "userinput"] - -- If the doc is a single paragraph, don't surround it with <P> (this causes -- ugly extra whitespace with some browsers). FIXME: Does this still apply? docToHtml :: Doc DocName -> Html docToHtml = markup fmt . cleanup where fmt = parHtmlMarkup ppDocName (isTyConName . getName) + origDocToHtml :: Doc Name -> Html origDocToHtml = markup fmt . cleanup where fmt = parHtmlMarkup ppName isTyConName + rdrDocToHtml :: Doc RdrName -> Html rdrDocToHtml = markup fmt . cleanup where fmt = parHtmlMarkup ppRdrName isRdrTc - docElement :: (ADDATTRS a) => a -> a docElement = (! [theclass "doc"]) + docSection :: Doc DocName -> Html docSection = (docElement thediv <<) . docToHtml + maybeDocSection :: Maybe (Doc DocName) -> Html maybeDocSection = maybe noHtml docSection |