Removed unecessary parentheses

2025-05-06 17:04:24 -05:00
parent 873795e267
commit 71aacdd26a
1 changed files with 2 additions and 2 deletions
--- 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)