aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-01-21 00:47:30 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-01-21 00:49:43 +0300
commit1dd5018a807a80866c35d73b9c0131cc9bc16cb5 (patch)
treeedebc8c231d743c8d9ef636efbbd4382878fa209 /src/Text
parent957c0e110dd54cf7adaca6c9d7eb0b01c8b0210c (diff)
downloadpandoc-1dd5018a807a80866c35d73b9c0131cc9bc16cb5.tar.gz
Muse reader: simplify paragraph parsing
Blanklines are already consumed during block parsing, there is no need to check for them specifically.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 973dfa15c..752461e6a 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -341,9 +341,8 @@ para = do
let f = if st /= ListItemState && indent >= 2 && indent < 6 then B.blockQuote else id
fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
where
- endOfParaElement = lookAhead $ endOfInput <|> endOfPara <|> newBlockElement
+ endOfParaElement = lookAhead $ endOfInput <|> newBlockElement
endOfInput = try $ skipMany blankline >> skipSpaces >> eof
- endOfPara = try $ blankline >> skipMany1 blankline
newBlockElement = try $ blankline >> void blockElements
noteMarker :: PandocMonad m => MuseParser m String