diff options
| author | Kazu Yamamoto <kazu@iij.ad.jp> | 2012-04-09 15:45:57 +0900 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2012-10-09 12:45:31 +0200 |
| commit | 72675c1bf281b81041a19014b1b7df03a0de9488 (patch) | |
| tree | 70b5fd4875eb604d1b092912d84a1fc696126b2a /src/Haddock/Backends/Xhtml | |
| parent | ac8417bd0e947d81713a8ec31fe048aa43e34c03 (diff) | |
Add markup support for properties
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/DocMarkup.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs index e75cfaba..aa4ba377 100644 --- a/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -50,6 +50,7 @@ parHtmlMarkup qual ppId = Markup { markupHyperlink = \(Hyperlink url mLabel) -> anchor ! [href url] << fromMaybe url mLabel, markupAName = \aname -> namedAnchor aname << "", markupPic = \path -> image ! [src path], + markupProperty = pre . toHtml, markupExample = examplesToHtml } where |