aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-05-19 17:44:15 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-05-19 17:44:15 -0700
commit79a17ef9b9066c3b34e22d7e0ac54ae0bc6800e4 (patch)
tree55b3bd47ba9d240776f2bf41279654412a63037e
parentb2340cd8746253a4d4484bfc9eef0f2929a35e5e (diff)
downloadpandoc-79a17ef9b9066c3b34e22d7e0ac54ae0bc6800e4.tar.gz
Markdown Use a nonzero space to prevent false recognition of list marker.
This addresses #516, but in a rather hackish way. There ought to be a better solution.
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index a95c0ba7b..9cbcaeb47 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -218,7 +218,7 @@ blockToMarkdown opts (Para inlines) = do
let esc = if (not (writerStrictMarkdown opts)) &&
not (stPlain st) &&
beginsWithOrderedListMarker (render Nothing contents)
- then text "\\"
+ then text "\x200B" -- zero-width space, a hack
else empty
return $ esc <> contents <> blankline
blockToMarkdown _ (RawBlock f str)