Rename function

src/MdToHTML.hs

@@ -149,7 +149,7 @@ parseBold = parseBoldWith "**" <|> parseBoldWith "__"
 parseItalic :: ReadP MdToken
 parseItalic = parseItalicWith "*" <|> parseItalicWith "_"
   where
-    parseBoldWith delim = do
+    parseItalicWith delim = do
       string delim
       inside <- greedyParse1 parseLineToken
       string delim