diff options
| author | David Waern <david.waern@gmail.com> | 2010-10-16 18:42:40 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-10-16 18:42:40 +0000 |
| commit | 52a3bdb03333ef97f7d81a9b058eb07002b7909c (patch) | |
| tree | e45b9af74f8a48a38a12851cc007d7b9e292a7b3 /src/Haddock/Backends/Xhtml/DocMarkup.hs | |
| parent | 0a93ff502d346fbbe809a336814a837aa10f120e (diff) | |
Use "qual" as an abbreviation for qualification instead of "quali" for consistency
Diffstat (limited to 'src/Haddock/Backends/Xhtml/DocMarkup.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/DocMarkup.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs index fb03b123..1e43891d 100644 --- a/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -76,8 +76,8 @@ parHtmlMarkup ppId isTyCon = Markup { -- 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 :: Qualification -> Doc DocName -> Html -docToHtml quali = markup fmt . cleanup - where fmt = parHtmlMarkup (ppDocName quali) (isTyConName . getName) +docToHtml qual = markup fmt . cleanup + where fmt = parHtmlMarkup (ppDocName qual) (isTyConName . getName) origDocToHtml :: Doc Name -> Html @@ -98,11 +98,11 @@ docElement el content_ = docSection :: Qualification -> Doc DocName -> Html -docSection quali = (docElement thediv <<) . (docToHtml quali) +docSection qual = (docElement thediv <<) . (docToHtml qual) maybeDocSection :: Qualification -> Maybe (Doc DocName) -> Html -maybeDocSection quali = maybe noHtml (docSection quali) +maybeDocSection qual = maybe noHtml (docSection qual) cleanup :: Doc a -> Doc a |