git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: simplify paragraph parsing
1dd5018Alexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1−2
compare with master
unifiedsplit
@@ -341,9 +341,8 @@ para = do
341 let f = if st /= ListItemState && indent >= 2 && indent < 6 then B.blockQuote else id
341 let f = if st /= ListItemState && indent >= 2 && indent < 6 then B.blockQuote else id
342 fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
342 fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
343 where
343 where
344− endOfParaElement = lookAhead $ endOfInput <|> endOfPara <|> newBlockElement
344+ endOfParaElement = lookAhead $ endOfInput <|> newBlockElement
345 endOfInput = try $ skipMany blankline >> skipSpaces >> eof
345 endOfInput = try $ skipMany blankline >> skipSpaces >> eof
346− endOfPara = try $ blankline >> skipMany1 blankline
347 newBlockElement = try $ blankline >> void blockElements
346 newBlockElement = try $ blankline >> void blockElements
348
347
349noteMarker :: PandocMonad m => MuseParser m String
348noteMarker :: PandocMonad m => MuseParser m String