diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index e1f0919..c2286ee 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -431,8 +431,8 @@ parseFirstOListItem = do
 
 parseOrderedList :: Parser MdToken
 parseOrderedList = do
-  firstLine <- parseFirstOListItem
-  lineItems <- some parseOListItem
+  firstLine <- try parseFirstOListItem
+  lineItems <- many $ try parseOListItem
   void (char '\n') <|> eof
   return $ OrdList (firstLine : lineItems)