@@ -378,7 +378,7 @@ indentWith num = do
378378 (try (char '\t' >> count (num - tabStop) (char ' '))) ]
379379
380380-- parse raw text for one list item, excluding start marker and continuations
381−rawListItem start = do
381+rawListItem start = try $ do
382382 markerLength <- start
383383 firstLine <- manyTill anyChar newline
384384 restLines <- many (listLine markerLength)
@@ -408,7 +408,7 @@ listItem start = try $ do
408408 updateState (\st -> st {stateParserContext = oldContext})
409409 return parsed
410410
411−orderedList = do
411+orderedList = try $ do
412412 (start, style, delim) <- lookAhead (anyOrderedListMarker >>~ spaceChar)
413413 items <- many1 (listItem (orderedListStart style delim))
414414 let items' = compactify items