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

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