Put language class information in pre tag, not code tag, in HTML code blocks.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1207 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 3 insertions, 3 deletions

diff --git a/Text/Pandoc/Writers/HTML.hs b/Text/Pandoc/Writers/HTML.hs
index c31688ca6..847552faf 100644
--- a/Text/Pandoc/Writers/HTML.hs
+++ b/Text/Pandoc/Writers/HTML.hs
@@ -263,9 +263,9 @@ blockToHtml opts (Plain lst) = inlineListToHtml opts lst
 blockToHtml opts (Para lst) = inlineListToHtml opts lst >>= (return . paragraph)
 blockToHtml opts (RawHtml str) = return $ primHtml str
 blockToHtml opts (HorizontalRule) = return $ hr
-blockToHtml opts (CodeBlock lang str) = return $ pre $
-  thecode ! (if null lang then [] else [theclass lang]) << (str ++ "\n") 
-                       -- the final \n for consistency with Markdown.pl
+blockToHtml opts (CodeBlock lang str) = return $ 
+  pre ! (if null lang then [] else [theclass lang]) $
+  thecode << (str ++ "\n") -- the final \n for consistency with Markdown.pl
 blockToHtml opts (BlockQuote blocks) =
   -- in S5, treat list in blockquote specially
   -- if default is incremental, make it nonincremental;