Try parsing an ordered list item, backtrack if not possible

src/MdToHTML.hs

@@ -431,8 +431,8 @@ parseFirstOListItem = do
 
 parseOrderedList :: Parser MdToken
 parseOrderedList = do
-  firstLine <- parseFirstOListItem
+  firstLine <- try parseFirstOListItem
-  lineItems <- some parseOListItem
+  lineItems <- many $ try parseOListItem
   void (char '\n') <|> eof
   return $ OrdList (firstLine : lineItems)