From f2354590f99130bc74392a77f8c88e1e002f30d8 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sat, 9 Feb 2008 03:19:24 +0000 Subject: 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 --- Text/Pandoc/Writers/HTML.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Text/Pandoc') 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; -- cgit v1.2.3