@@ -263,7 +263,8 @@ blockToHtml opts (Plain lst) = inlineListToHtml opts lst
263263blockToHtml opts (Para lst) = inlineListToHtml opts lst >>= (return . paragraph)
264264blockToHtml opts (RawHtml str) = return $ primHtml str
265265blockToHtml opts (HorizontalRule) = return $ hr
266−blockToHtml opts (CodeBlock _ str) = return $ pre $ thecode << (str ++ "\n")
266+blockToHtml opts (CodeBlock lang str) = return $ pre $
267+ thecode ! (if null lang then [] else [theclass lang]) << (str ++ "\n")
267268 -- the final \n for consistency with Markdown.pl
268269blockToHtml opts (BlockQuote blocks) =
269270 -- in S5, treat list in blockquote specially