From e7d94f225a63b573b9b75930de899c9ed920cd41 Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Fri, 9 May 2025 23:14:09 -0500
Subject: [PATCH] Updated show definitions for some tokens; add HTML syntax

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 86557ce..b84e35b 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -49,9 +49,9 @@ instance Show MdToken where
   show Linebreak = "<br>"
   show SingleNewline = " "
   show HorizontalRule = "---------"
-  show (Blockquote token) = "<blockquote>" ++ show token ++ "</blockquote>"
-  show (UnordList tokens) = "UNORD" ++ concatMap show tokens
-  show (OrdList tokens) = "ORD" ++ concatMap show tokens
+  show (Blockquote tokens) = "<blockquote>" ++ concatMap show tokens ++ "</blockquote>"
+  show (UnordList tokens) = "<ul>" ++ concatMap (prepend "<li>" . append "</li>" . show) tokens ++ "</ul>"
+  show (OrdList tokens) = "<ol>" ++ concatMap (prepend "<li>" . append "</li>" . show) tokens ++ "</ol>"
   show (Code code) = show code
   show (Codeblock code) = show code
   show (Link txt url) = "<a href=\"" ++ getUrl url ++ "\">" ++ show txt ++ "</a>"