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/Utils.hs | |
| parent | 0ff11e2b1d741e05d0fdb457ab104c8fc438d40b (diff) | |
Add markup support for interactive examples
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index da144355..11366b3f 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -327,6 +327,7 @@ markup m (DocCodeBlock d) = markupCodeBlock m (markup m d) markup m (DocURL url) = markupURL m url markup m (DocAName ref) = markupAName m ref markup m (DocPic img) = markupPic m img +markup m (DocExamples e) = markupExample m e markupPair :: DocMarkup id a -> (Doc id, Doc id) -> (a, a) markupPair m (a,b) = (markup m a, markup m b) @@ -348,7 +349,8 @@ idMarkup = Markup { markupCodeBlock = DocCodeBlock, markupURL = DocURL, markupAName = DocAName, - markupPic = DocPic + markupPic = DocPic, + markupExample = DocExamples } |