From 1dd5018a807a80866c35d73b9c0131cc9bc16cb5 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sun, 21 Jan 2018 00:47:30 +0300 Subject: Muse reader: simplify paragraph parsing Blanklines are already consumed during block parsing, there is no need to check for them specifically. --- src/Text/Pandoc/Readers/Muse.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Text') 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 -- cgit v1.2.3