Removed unecessary parentheses

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)