From e7ea7b6ba650c3d5d4654060aa7729491be899c6 Mon Sep 17 00:00:00 2001 From: Rockingcool Date: Tue, 6 May 2025 17:10:54 -0500 Subject: [PATCH] Removed unecessary case statement --- src/MdToHTML.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs index 5b49a40..0210c58 100644 --- a/src/MdToHTML.hs +++ b/src/MdToHTML.hs @@ -161,7 +161,6 @@ parseLine = do return (Line parsed) -- Parse a paragraph, which is a 'Line' (can span multiple actual lines), separated by double-newlines. --- As a weird special case, a 'Paragraph' can also be a 'Header'. parsePara :: ReadP MdToken parsePara = do parseMany (char '\n') @@ -169,11 +168,8 @@ parsePara = do -- string "\n\n" <|> (eof >> return "") -- Consume the next double-newline or EOF. text <- manyTill get (string "\n\n" <|> (eof >> return "")) when (null text) pfail - let parsedText = fst $ leftmostLongestParse parseLine text -- Parse either a line or a header. - -- If the paragraph is a header, return a Header token. Otheriwse return a Para token. - case parsedText of - Header level token -> return (Header level token) - _ -> return (Para parsedText) + let parsedText = fst $ leftmostLongestParse parseLine text -- Parse a line + return (Para parsedText) -- Parse a document, which is multiple paragraphs. parseDocument :: ReadP MdToken