From b9c6cc4470ff6032c8f363c57af91672ab129dfb Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Fri, 16 May 2025 19:29:39 -0500
Subject: [PATCH] Implemented strikethrough parser

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index c628f2b..7c964f4 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -178,6 +178,13 @@ parseItalic = do
   let parsedText = fst $ leftmostLongestParse parseLine text
   return (Italic parsedText)
 
+-- Parse strikethrough text
+parseStrikethrough :: ReadP MdToken
+parseStrikethrough = do
+  text <- between (string "~~") (string "~~") (many1 (lookaheadParse (/= "~~")))
+  let parsedText = fst $ leftmostLongestParse parseLine text
+  return (Strikethrough parsedText)
+
 -- Parse a link
 parseLink :: ReadP MdToken
 parseLink = do