diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:07:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:07:28 -0700 |
| commit | 8d4027da4dc698cdb13d143bc542977391f4b49b (patch) | |
| tree | 64774ded1aa863a3f90ddbf153986a08407e09ba /src/Text/Pandoc/Readers/Man.hs | |
| parent | 1b19e79650d6bcc6ec45733ee349c3af5c36ab36 (diff) | |
| download | pandoc-8d4027da4dc698cdb13d143bc542977391f4b49b.tar.gz | |
Man reader: block quotes (using RS..RE).
Diffstat (limited to 'src/Text/Pandoc/Readers/Man.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 4 |
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 |