Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader: avoid parsing newline after paragraph twice

Browse source 
Removed lookAhead from blankline, so it is consumed.
This commit is contained in:
Alexander Krotov 2018-02-05 02:57:03 +03:00
parent 1a06f0ecfb
commit c74d2064a7
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Readers/Muse.hs
View file

@ -373,12 +373,10 @@ para = do
indent <- length <$> many spaceChar
st <- museInList <$> getState
let f = if not st && indent >= 2 && indent < 6 then B.blockQuote else id
res <- fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
manyTill spaceChar eol
return res
fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement
where
endOfParaElement = lookAhead $ try (eof <|> newBlockElement)
newBlockElement = blankline >> void blockElements
endOfParaElement = try (eof <|> newBlockElement)
newBlockElement = blankline >> void (lookAhead blockElements)
noteMarker :: PandocMonad m => MuseParser m String
noteMarker = try $ do