From 9a128407cc96cb77314036773684a01a66b6c9cf Mon Sep 17 00:00:00 2001 From: Aadhavan Srinivasan Date: Mon, 5 May 2025 11:31:24 -0400 Subject: [PATCH] Fixed newline bug; working on fixing the last failing test --- src/MdToHTML.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs index 9e0d5e6..c2ff303 100644 --- a/src/MdToHTML.hs +++ b/src/MdToHTML.hs @@ -137,12 +137,13 @@ parseSingleNewline = do -- Parse a regular string as a Unit. parseString :: ReadP MdToken parseString = do - firstChar <- get -- Must parse at least one character here + firstChar <- satisfy (/= '\n') -- Must parse at least one non-newline character here text <- munch (\x -> not (elem x "#*_[\n ")) return (Unit (firstChar : text)) lineParsers :: [ReadP MdToken] lineParsers = [parseLinebreak, parseSingleNewline, parseBold, parseItalic, parseString] -- A 'line' doesn't include a 'header' +--lineParsers = [parseSingleNewline, parseString] -- List of all parsers allParsers :: [ReadP MdToken]