diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-09 03:19:43 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-09 03:19:43 +0000 |
| commit | 614547b38eff096d5bcdd1fc97eadc8eab89028a (patch) | |
| tree | eff9841eb7ec72bae9fb54cdf53fd292a42479c5 /Text/Pandoc/Writers | |
| parent | 705340824d1523262f2c32e9821b1f035937bec8 (diff) | |
| download | pandoc-614547b38eff096d5bcdd1fc97eadc8eab89028a.tar.gz | |
Use generic attributes type, not a string, for CodeBlocks.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1209 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers')
| -rw-r--r-- | Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/Writers/HTML.hs b/Text/Pandoc/Writers/HTML.hs index 847552faf..4f9bf0d8e 100644 --- a/Text/Pandoc/Writers/HTML.hs +++ b/Text/Pandoc/Writers/HTML.hs @@ -263,8 +263,8 @@ 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 ! (if null lang then [] else [theclass lang]) $ +blockToHtml opts (CodeBlock (_,classes,_) str) = return $ + pre ! (if null classes then [] else [theclass $ unwords classes]) $ thecode << (str ++ "\n") -- the final \n for consistency with Markdown.pl blockToHtml opts (BlockQuote blocks) = -- in S5, treat list in blockquote specially |