aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-03-11 20:45:27 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2013-03-11 20:45:27 -0700
commit54782c2af68c1b80d69ee028e74dd5ed17c0a934 (patch)
tree1270692e6a1a81ecd2aaaf332881f4c284ea578a /src/Text/Pandoc/Writers
parentf7229b147314042f946dfded3b441ab0fae260a0 (diff)
downloadpandoc-54782c2af68c1b80d69ee028e74dd5ed17c0a934.tar.gz
Fixed spacing bugs involving code block attributes.
Closes #763.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-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 c19cad22b..876485552 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -328,7 +328,7 @@ blockToMarkdown opts (CodeBlock attribs str) = return $
| otherwise -> replicate (n+1) '~'
backticks = text "```"
attrs = if isEnabled Ext_fenced_code_attributes opts
- then attrsToMarkdown attribs
+ then nowrap $ attrsToMarkdown attribs
else empty
blockToMarkdown opts (BlockQuote blocks) = do
st <- get