From c203ace13049f55a0772adce5462516b36b0fdd2 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 14 Jul 2016 23:38:20 -0700
Subject: Haddock reader - support math.

The Haddock document model added elements for math
in 1.4.
---
 src/Text/Pandoc/Readers/Haddock.hs | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
cgit v1.2.3