diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs index 0e86001..77ea2b1 100644 --- a/src/MdToHTML.hs +++ b/src/MdToHTML.hs @@ -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