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