@@ -653,11 +653,12 @@ markdown api = unlines $
653 ("text", "css") -> "css"
653 ("text", "css") -> "css"
654 (_, _) -> ""
654 (_, _) -> ""
656 contentStr mime_type body =
657 contentStr mime_type body =
658− "```" <> markdownForType mime_type :
659+ " ```" <> markdownForType mime_type :
659 cs body :
660 cs body :
660− "```" :
661+ " ```" :