diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 6b708b0..9a99fb1 100644
--- a/src/MdToHTML.hs
+++ b/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