From 03204029579efb95256e0a6090a2f5ac84420c87 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 27 May 2025 09:28:19 -0400
Subject: [PATCH] Fixed how trailing newlines are parsed

---
 src/MdToHTML.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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 '>'.