diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-16 06:05:43 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-16 06:05:43 +0000 |
commit | cdf7c78b5f39ac30a3b1089bd8ce9349425bf5cd (patch) | |
tree | 64b2230865b5668876fbb014ae61c8ba6fff7399 | |
parent | 0d2e5eab79edee0ccc711772a2def5b8082797b4 (diff) | |
download | pandoc-cdf7c78b5f39ac30a3b1089bd8ce9349425bf5cd.tar.gz |
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
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 1e3a1ac6c..4ac5bad80 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -359,14 +359,14 @@ bulletListStart = try (do spaceChar skipSpaces) -standardOrderedListStart = do +standardOrderedListStart = try (do many1 digit - char '.' + char '.') -extendedOrderedListStart = do +extendedOrderedListStart = try (do failIfStrict oneOf ['a'..'n'] - oneOf ".)" + oneOf ".)") orderedListStart = try $ do option ' ' newline -- if preceded by a Plain block in a list context |