@@ -374,7 +374,7 @@ inlineMarkup = choice [ simpleInline (string "??") (Cite [])
374374 , simpleInline (char '*') Strong
375375 , simpleInline (char '_') Emph
376376 , simpleInline (char '+') Emph -- approximates underline
377− , simpleInline (char '-') Strikeout
377+ , simpleInline (char '-' <* notFollowedBy (char '-')) Strikeout
378378 , simpleInline (char '^') Superscript
379379 , simpleInline (char '~') Subscript
380380 ]