diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-19 05:11:34 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-19 05:11:34 +0000 |
| commit | 91e2c21cfdaca7913dbfec17bdd7712c0c1ed732 (patch) | |
| tree | b8a93a633cedc924042300334748750e27b945cb /src/Haddock/Backends/Xhtml/DocMarkup.hs | |
| parent | 6b35adfb811d9e41e5bfa1c11963e441740c2836 (diff) | |
Use a bespoke data type to indicate fixity
This deals with what I imagine was an ancient TODO and makes it much
clearer what the argument actually does rather than having the user
chase down the comment.
Diffstat (limited to 'src/Haddock/Backends/Xhtml/DocMarkup.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/DocMarkup.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs index 69174e96..69bb94c2 100644 --- a/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -80,12 +80,12 @@ parHtmlMarkup qual ppId = Markup { -- ugly extra whitespace with some browsers). FIXME: Does this still apply? docToHtml :: Qualification -> Doc DocName -> Html docToHtml qual = markup fmt . cleanup - where fmt = parHtmlMarkup qual (ppDocName qual Nothing) + where fmt = parHtmlMarkup qual (ppDocName qual Raw) origDocToHtml :: Qualification -> Doc Name -> Html origDocToHtml qual = markup fmt . cleanup - where fmt = parHtmlMarkup qual (ppName Nothing) + where fmt = parHtmlMarkup qual (ppName Raw) rdrDocToHtml :: Qualification -> Doc RdrName -> Html |