diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 47760b8..fbc3168 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -570,5 +570,8 @@ documentParsers =
 -- Parse a document, which is multiple paragraphs.
 parseDocument :: Parser MdToken
 parseDocument = do
-  res <- manyTill (fallthroughParser documentParsers) eof
+  --  res <- manyTill (fallthroughParser documentParsers <|> (char '\n' *> return $ Unit "")) eof
+  res <- sepEndBy (fallthroughParser documentParsers) (many $ char '\n')
+  -- many $ char '\n'
+  eof
   return (Document res)