From 82277e9ea8d4e4983e480ab7af1ac99aebb38335 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 10 Jun 2025 14:14:26 -0400
Subject: [PATCH] Only add newlines for linebreak when pretty printing

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 2bcb34e..dea69a6 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -58,7 +58,7 @@ instance Show MdToken where
   show (Header level token) = "<h" ++ show level ++ ">" ++ show token ++ "</h" ++ show level ++ ">"
   show (Para token) = "<p>" ++ show token ++ "</p>"
   show (Line tokens) = concatMap show tokens
-  show Linebreak = "<br />\n"
+  show Linebreak = "<br />"
   show SingleNewline = " "
   show HorizontalRule = "<hr>"
   show (Blockquote tokens) = "<blockquote>" ++ concatMap show tokens ++ "</blockquote>"
@@ -81,6 +81,8 @@ instance Show MdToken where
 prettyPrint :: MdToken -> String
 prettyPrint (Para token) = "<p>" ++ T.unpack (wrapText defaultWrapSettings 70 (T.pack $ prettyPrint token)) ++ "</p>\n"
 prettyPrint (Table (thead : tokenGrid)) = "<table>\n<thead>\n<tr>\n" ++ concatMap (\x -> "<th>" ++ rstrip (prettyPrint x) ++ "</th>\n") thead ++ "</tr>\n</thead>\n" ++ "<tbody>\n" ++ concatMap (\x -> "<tr>\n" ++ concatMap (\y -> "<td>" ++ rstrip (prettyPrint y) ++ "</td>\n") x ++ "</tr>\n") tokenGrid ++ "</tbody>\n</table>\n"
+prettyPrint Linebreak = "<br />\n"
+prettyPrint (Line tokens) = concatMap prettyPrint tokens
 prettyPrint (Document tokens) = concatMap prettyPrint tokens
 prettyPrint token = show token