From b8ba27f24034d7d9ca09b14f4d882efd393850e8 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 3 Jun 2025 15:37:27 -0400
Subject: [PATCH] Strip newlines when comparing in test

---
 src/MdToHtmlTest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MdToHtmlTest.hs b/src/MdToHtmlTest.hs
index a0211a1..d2df2cf 100644
--- a/src/MdToHtmlTest.hs
+++ b/src/MdToHtmlTest.hs
@@ -4,7 +4,7 @@ import MdToHTML
 import Test.HUnit
 
 check_equal :: String -> String -> String -> Test
-check_equal desc expected actual = TestCase (assertEqual desc expected actual)
+check_equal desc expected actual = TestCase (assertEqual desc expected (filter (/= '\n') actual))
 
 convert :: String -> String
 convert md = show $ leftmostLongestParse parseDocument md