diff options
| author | simon.hengel <simon.hengel@wiktory.org> | 2010-04-02 14:08:40 +0000 |
|---|---|---|
| committer | simon.hengel <simon.hengel@wiktory.org> | 2010-04-02 14:08:40 +0000 |
| commit | 28bd97759174c9169b7633ee45d39c82fd069dd9 (patch) | |
| tree | 676af721ca72c1058d3e7e4c2c27c90d37b4d095 /src/Haddock/Backends/Hoogle.hs | |
| parent | 0ff11e2b1d741e05d0fdb457ab104c8fc438d40b (diff) | |
Add markup support for interactive examples
Diffstat (limited to 'src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index 25c5d91e..2d4ece4b 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -240,7 +240,8 @@ markupTag = Markup { markupDefList = box (TagL 'u') . map (\(a,b) -> TagInline "i" a : Str " " : b), markupCodeBlock = box TagPre, markupURL = box (TagInline "a") . str, - markupAName = const $ str "" + markupAName = const $ str "", + markupExample = box TagPre . str . unlines . (map exampleToString) } |