From ca328a464a071c481b92355d5ed52249b9ba041e Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 15 Jul 2025 10:51:10 -0400
Subject: [PATCH] Add prettyPrint definition for horizontal rule

---
 src/MdToHTML.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index dea69a6..d7ec5f0 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -82,6 +82,7 @@ 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 HorizontalRule = "<hr>\n"
 prettyPrint (Line tokens) = concatMap prettyPrint tokens
 prettyPrint (Document tokens) = concatMap prettyPrint tokens
 prettyPrint token = show token