Muse reader: simplify para implementation (#3761)
commitb95f391bebdd6d79b11db4469d97640e80285ccc
authorAlexander Krotov <ilabdsf@gmail.com>
dateMon 26 Jun 2017, 09:40 (9 years ago)
parent4cbbc9d
src/Text/Pandoc/Readers/Muse.hs+1−3
@@ -247,9 +247,7 @@ commentTag :: PandocMonad m => MuseParser m (F Blocks)
247247commentTag = parseHtmlContent "comment" block >> return mempty
248248
249249para :: PandocMonad m => MuseParser m (F Blocks)
250−para = do
251− res <- trimInlinesF . mconcat <$> many1Till inline endOfParaElement
252− return $ B.para <$> res
250+para = liftM B.para . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
253251 where
254252 endOfParaElement = lookAhead $ endOfInput <|> endOfPara <|> newBlockElement
255253 endOfInput = try $ skipMany blankline >> skipSpaces >> eof