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)