@@ -122,7 +122,7 @@ blockToConTeXt (BlockQuote lst) = do
122122 contents <- blockListToConTeXt lst
123123 return $ "\\startblockquote" $$ nest 0 contents $$ "\\stopblockquote" <> blankline
124124blockToConTeXt (CodeBlock _ str) =
125− return $ "\\starttyping" <> cr <> flush (text str) <> cr <> "\\stoptyping" <> blankline
125+ return $ "\\starttyping" <> cr <> flush (text str) <> cr <> "\\stoptyping" $$ blankline
126126 -- blankline because \stoptyping can't have anything after it, inc. '}'
127127blockToConTeXt (RawHtml _) = return empty
128128blockToConTeXt (BulletList lst) = do