@@ -234,8 +234,8 @@ blockToMarkdown opts (CodeBlock attribs str) = return $
234234 if writerStrictMarkdown opts || attribs == ([],[],[])
235235 then nest (writerTabStop opts) (text str) <> blankline
236236 else -- use delimited code block
237− flush $ tildes <> space <> attrs <> cr <> text str <>
238− cr <> tildes <> blankline
237+ flush (tildes <> space <> attrs <> cr <> text str <>
238+ cr <> tildes) <> blankline
239239 where tildes = text "~~~~"
240240 attrs = braces $ hsep [attribId, attribClasses, attribKeys]
241241 attribId = case attribs of