Added trys to two list start routines. Reason:

<|> only parses second parser when first hasn't consumed
input.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@576 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-03-16 06:05:43 +00:00
parent 0d2e5eab79
commit cdf7c78b5f

View file

@ -359,14 +359,14 @@ bulletListStart = try (do
spaceChar spaceChar
skipSpaces) skipSpaces)
standardOrderedListStart = do standardOrderedListStart = try (do
many1 digit many1 digit
char '.' char '.')
extendedOrderedListStart = do extendedOrderedListStart = try (do
failIfStrict failIfStrict
oneOf ['a'..'n'] oneOf ['a'..'n']
oneOf ".)" oneOf ".)")
orderedListStart = try $ do orderedListStart = try $ do
option ' ' newline -- if preceded by a Plain block in a list context option ' ' newline -- if preceded by a Plain block in a list context