@ -147,7 +147,7 @@ parseBold = parseBoldWith "**" <|> parseBoldWith "__"
-- Parse italic text
parseItalic :: ReadP MdToken
parseItalic = parseBoldWith "*" <|> parseBoldWith "_"
parseItalic = parseItalicWith "*" <|> parseItalicWith "_"
where
parseBoldWith delim = do
string delim