diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 4179423..f112536 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -369,6 +369,7 @@ parseUListItem = parseUListParaItem <++ parseUListLineItem <++ parseUListNested
 parseUnorderedList :: ReadP MdToken
 parseUnorderedList = do
   lineItems <- greedyParse1 parseUListItem
+  void (char '\n') <++ eof -- A list must end in an extra newline or eof
   return $ UnordList lineItems
 
 -- Parse a document, which is multiple paragraphs.