@@ -316,10 +316,10 @@ blockToMarkdown opts (CodeBlock (_,classes,_) str)
316blockToMarkdown opts (CodeBlock attribs str) = return $
316blockToMarkdown opts (CodeBlock attribs str) = return $
317 case attribs of
317 case attribs of
318 x | x /= nullAttr && isEnabled Ext_fenced_code_blocks opts ->
318 x | x /= nullAttr && isEnabled Ext_fenced_code_blocks opts ->
319− tildes <> space <> attrs <> cr <> text str <>
319+ tildes <> " " <> attrs <> cr <> text str <>
320 cr <> tildes <> blankline
320 cr <> tildes <> blankline
321 (_,(cls:_),_) | isEnabled Ext_backtick_code_blocks opts ->
321 (_,(cls:_),_) | isEnabled Ext_backtick_code_blocks opts ->
322− backticks <> space <> text cls <> cr <> text str <>
322+ backticks <> " " <> text cls <> cr <> text str <>
323 cr <> backticks <> blankline
323 cr <> backticks <> blankline
324 _ -> nest (writerTabStop opts) (text str) <> blankline
324 _ -> nest (writerTabStop opts) (text str) <> blankline
325 where tildes = text $ case [ln | ln <- lines str, all (=='~') ln] of
325 where tildes = text $ case [ln | ln <- lines str, all (=='~') ln] of