From 8d4027da4dc698cdb13d143bc542977391f4b49b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Oct 2018 10:07:28 -0700
Subject: Man reader: block quotes (using RS..RE).

---
 src/Text/Pandoc/Readers/Man.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 01c44066a..ecde31b9f 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -129,6 +129,7 @@ parseMan = do
 parseBlock :: PandocMonad m => ManParser m Blocks
 parseBlock = choice [ parseList
                     , parseDefinitionList
+                    , parseBlockQuote
                     , parseTitle
                     , parsePara
                     , parseSkippedContent
@@ -505,6 +506,9 @@ parseHeader = do
   let lvl = if name == "SH" then 1 else 2
   return $ header lvl contents
 
+parseBlockQuote :: PandocMonad m => ManParser m Blocks
+parseBlockQuote = blockQuote <$> continuation
+
 data ListType = Ordered ListAttributes
               | Bullet
 
-- 
cgit v1.2.3