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/Hoogle.hs | |
| parent | ac8417bd0e947d81713a8ec31fe048aa43e34c03 (diff) | |
Add markup support for properties
Diffstat (limited to 'src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index 4949daa1..28d35aca 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -256,6 +256,7 @@ markupTag dflags = Markup { markupCodeBlock = box TagPre, markupHyperlink = \(Hyperlink url mLabel) -> (box (TagInline "a") . str) (fromMaybe url mLabel), markupAName = const $ str "", + markupProperty = box TagPre . str, markupExample = box TagPre . str . unlines . map exampleToString } |