diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2017-06-26 09:41:17 +0300 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-26 08:41:17 +0200 |
commit | 492b3b129190be9742981493812894f888bb5f2d (patch) | |
tree | 73280d0d9e36d611ffad6f8910a2d821d7db4b3b /src/Text/Pandoc/Readers | |
parent | b95f391bebdd6d79b11db4469d97640e80285ccc (diff) | |
download | pandoc-492b3b129190be9742981493812894f888bb5f2d.tar.gz |
Muse reader: fix horizontal rule parsing (#3762)
Do not parse 3 dashes as horizontal rule and allow whitespace after rule
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 06d385222..eb0769e0b 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -200,8 +200,10 @@ comment = try $ do separator :: PandocMonad m => MuseParser m (F Blocks) separator = try $ do - string "---" - newline + string "----" + many $ char '-' + many spaceChar + void newline <|> eof return $ return B.horizontalRule header :: PandocMonad m => MuseParser m (F Blocks) |