diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 0e7c024..21b2e79 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -194,7 +194,10 @@ parseLinebreak = do
 parseSingleNewline :: ReadP MdToken
 parseSingleNewline = do
   char '\n'
-  return SingleNewline
+  remaining <- look
+  case remaining of
+    [] -> return $ Unit ""
+    _ -> return SingleNewline
 
 parseImage :: ReadP MdToken
 parseImage = do
@@ -283,6 +286,7 @@ parsePara = do
   text <- manyTill get (string "\n\n" <|> (eof >> return ""))
   when (null text) pfail
   let parsedText = fst $ leftmostLongestParse parseLine text -- Parse a line
+  parseMany (char '\n')
   return (Para parsedText)
 
 -- Parse a line starting with '>', return the line except for the '>'.