@@ -316,10 +316,10 @@ blockToMarkdown opts (CodeBlock (_,classes,_) str)
316316blockToMarkdown opts (CodeBlock attribs str) = return $
317317 case attribs of
318318 x | x /= nullAttr && isEnabled Ext_fenced_code_blocks opts ->
319− tildes <> space <> attrs <> cr <> text str <>
319+ tildes <> " " <> attrs <> cr <> text str <>
320320 cr <> tildes <> blankline
321321 (_,(cls:_),_) | isEnabled Ext_backtick_code_blocks opts ->
322− backticks <> space <> text cls <> cr <> text str <>
322+ backticks <> " " <> text cls <> cr <> text str <>
323323 cr <> backticks <> blankline
324324 _ -> nest (writerTabStop opts) (text str) <> blankline
325325 where tildes = text $ case [ln | ln <- lines str, all (=='~') ln] of