Implemented strikethrough parser

fixingIncompleteElements
Aadhavan Srinivasan 2 weeks ago
parent 23691f9cfe
commit b9c6cc4470

@ -178,6 +178,13 @@ parseItalic = do
let parsedText = fst $ leftmostLongestParse parseLine text
return (Italic parsedText)
-- Parse strikethrough text
parseStrikethrough :: ReadP MdToken
parseStrikethrough = do
text <- between (string "~~") (string "~~") (many1 (lookaheadParse (/= "~~")))
let parsedText = fst $ leftmostLongestParse parseLine text
return (Strikethrough parsedText)
-- Parse a link
parseLink :: ReadP MdToken
parseLink = do

Loading…
Cancel
Save