@@ -374,7 +374,7 @@ inlineMarkup = choice [ simpleInline (string "??") (Cite [])
374 , simpleInline (char '*') Strong
374 , simpleInline (char '*') Strong
375 , simpleInline (char '_') Emph
375 , simpleInline (char '_') Emph
376 , simpleInline (char '+') Emph -- approximates underline
376 , simpleInline (char '+') Emph -- approximates underline
377− , simpleInline (char '-') Strikeout
377+ , simpleInline (char '-' <* notFollowedBy (char '-')) Strikeout
378 , simpleInline (char '^') Superscript
378 , simpleInline (char '^') Superscript
379 , simpleInline (char '~') Subscript
379 , simpleInline (char '~') Subscript