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

Muse reader: fix reading of multiline definitions

Browse source
This commit is contained in:
Alexander Krotov 2017-11-22 14:53:19 +03:00
parent 3fdf04614a
commit e32657a671
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -467,8 +467,8 @@ definitionListItem = try $ do
where
termParser = (guardDisabled Ext_amuse <|> void spaceChar) >> -- Initial space is required by Amusewiki, but not Emacs Muse
many spaceChar >>
many1Till anyChar (lookAhead (void (try (spaceChar >> string "::")) <|> void newline))
endOfInput = try $ skipMany blankline >> skipSpaces >> eof
many1Till (noneOf "\n") (lookAhead (void (try (spaceChar >> string "::"))))
endOfInput = lookAhead $ try $ skipMany blankline >> skipSpaces >> eof
twoBlankLines = try $ blankline >> skipMany1 blankline
newDefinitionListItem = try $ void termParser
endOfListItemElement = lookAhead $ endOfInput <|> newDefinitionListItem <|> twoBlankLines