diff options
Diffstat (limited to 'Text/Pandoc/Writers/HTML.hs')
-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 e668e9885..5fbeaaab9 100644 --- a/Text/Pandoc/Writers/HTML.hs +++ b/Text/Pandoc/Writers/HTML.hs @@ -292,8 +292,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 (_,classes,_) rawCode) = do - case highlightHtml classes rawCode of +blockToHtml opts (CodeBlock attr@(_,classes,_) rawCode) = do + case highlightHtml attr rawCode of Left _ -> return $ pre ! (if null classes then [] else [theclass $ unwords classes]) $ thecode << |