From 71aacdd26a3eeefe3dff91c8f5c9628c1078e4f0 Mon Sep 17 00:00:00 2001 From: Rockingcool Date: Tue, 6 May 2025 17:04:24 -0500 Subject: [PATCH] Removed unecessary parentheses --- src/MdToHTML.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs index 8beec43..0379a3c 100644 --- a/src/MdToHTML.hs +++ b/src/MdToHTML.hs @@ -112,8 +112,8 @@ parseItalic :: ReadP MdToken parseItalic = do text <- choice - [ (between (string "_") (string "_") (munch1 (/= '_'))), - (between (string "*") (string "*") (munch1 (/= '*'))) + [ between (string "_") (string "_") (munch1 (/= '_')), + between (string "*") (string "*") (munch1 (/= '*')) ] let parsedText = fst $ leftmostLongestParse parseLine text return (Italic parsedText)