aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-09-28 23:37:41 -0400
committerJohn MacFarlane <jgm@berkeley.edu>2012-09-28 23:37:41 -0400
commitae68836352afae134510b93b29983cb207fa37d0 (patch)
tree21563ea1f9d341f2357d4247c8da6e02da4bb9c7 /src
parent632fd49d07cb6f286fb11dc9512115bff39049fd (diff)
downloadpandoc-ae68836352afae134510b93b29983cb207fa37d0.tar.gz
Textile reader: Avoid parsing dashes as strikeout.
Previously the input text-- text-- text-- text-- would be parsed with strikeouts rather than dashes. This fixes the problem by requiring that a strikeout delimiting - not be followed by a -. Closes #631.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Textile.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 170ccc2c7..0d516f545 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -374,7 +374,7 @@ inlineMarkup = choice [ simpleInline (string "??") (Cite [])
, simpleInline (char '*') Strong
, simpleInline (char '_') Emph
, simpleInline (char '+') Emph -- approximates underline
- , simpleInline (char '-') Strikeout
+ , simpleInline (char '-' <* notFollowedBy (char '-')) Strikeout
, simpleInline (char '^') Superscript
, simpleInline (char '~') Subscript
]