aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-20 10:07:28 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-20 10:07:28 -0700
commit8d4027da4dc698cdb13d143bc542977391f4b49b (patch)
tree64774ded1aa863a3f90ddbf153986a08407e09ba /src
parent1b19e79650d6bcc6ec45733ee349c3af5c36ab36 (diff)
downloadpandoc-8d4027da4dc698cdb13d143bc542977391f4b49b.tar.gz
Man reader: block quotes (using RS..RE).
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs4
1 files changed, 4 insertions, 0 deletions
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