aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-07-14 23:38:20 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2016-07-14 23:38:20 -0700
commitc203ace13049f55a0772adce5462516b36b0fdd2 (patch)
tree4b33a6973c0fa84a1796dd83d6e14430a5a008e1 /src/Text/Pandoc
parentd21701f66c4f07a796d409e16c03173700c74c38 (diff)
downloadpandoc-c203ace13049f55a0772adce5462516b36b0fdd2.tar.gz
Haddock reader - support math.
The Haddock document model added elements for math in 1.4.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Haddock.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Haddock.hs b/src/Text/Pandoc/Readers/Haddock.hs
index 16f3d7ef3..f0521e6f7 100644
--- a/src/Text/Pandoc/Readers/Haddock.hs
+++ b/src/Text/Pandoc/Readers/Haddock.hs
@@ -60,6 +60,8 @@ docHToBlocks d' =
DocEmphasis _ -> inlineFallback
DocMonospaced _ -> inlineFallback
DocBold _ -> inlineFallback
+ DocMathInline _ -> inlineFallback
+ DocMathDisplay _ -> inlineFallback
DocHeader h -> B.header (headerLevel h)
(docHToInlines False $ headerTitle h)
DocUnorderedList items -> B.bulletList (map docHToBlocks items)
@@ -107,6 +109,8 @@ docHToInlines isCode d' =
DocMonospaced (DocString s) -> B.code s
DocMonospaced d -> docHToInlines True d
DocBold d -> B.strong (docHToInlines isCode d)
+ DocMathInline s -> B.math s
+ DocMathDisplay s -> B.displayMath s
DocHeader _ -> mempty
DocUnorderedList _ -> mempty
DocOrderedList _ -> mempty