@@ -263,9 +263,9 @@ 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 lang str) = return $ pre $
267− thecode ! (if null lang then [] else [theclass lang]) << (str ++ "\n")
268− -- the final \n for consistency with Markdown.pl
266+blockToHtml opts (CodeBlock lang str) = return $
267+ pre ! (if null lang then [] else [theclass lang]) $
268+ thecode << (str ++ "\n") -- the final \n for consistency with Markdown.pl
269269blockToHtml opts (BlockQuote blocks) =
270270 -- in S5, treat list in blockquote specially
271271 -- if default is incremental, make it nonincremental;