diff options
| author | Dominic Steinitz <dominic@steinitz.org> | 2015-05-16 12:32:23 +0100 |
|---|---|---|
| committer | Dominic Steinitz <dominic@steinitz.org> | 2015-12-21 07:19:16 +0000 |
| commit | e01e4790402204af02ab0127ef5b633fb7748cd4 (patch) | |
| tree | 88be1e3c3b74ec27db6e02264dba9f32d58a32d3 /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | 2bdfda1fb2e0de696ca8c6f7a152b2f85a541be9 (diff) | |
Handle inline math with mathjax.
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index a9bc9a8b..8d67bd45 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -308,6 +308,8 @@ markupTag dflags = Markup { markupBold = box (TagInline "b"), markupMonospaced = box (TagInline "tt"), markupPic = const $ str " ", + -- FIXME: We could actually emit the mathjax as it is moderately readable + markupMathInline = const $ str "<math>", markupUnorderedList = box (TagL 'u'), markupOrderedList = box (TagL 'o'), markupDefList = box (TagL 'u') . map (\(a,b) -> TagInline "i" a : Str " " : b), |