aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-02-10 18:59:34 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-02-10 18:59:34 +0000
commit742a465980ea6cd1d23d38ee3f7d6d0d7616f471 (patch)
treea63ffde7d1dd8c69efef062ff8f2e235013eeac6 /Text/Pandoc/Writers
parent250a3e4dda52af478acfbb61add13461731945a8 (diff)
downloadpandoc-742a465980ea6cd1d23d38ee3f7d6d0d7616f471.tar.gz
Support for startFrom="nn" to select starting line number in syntax highlighting.
Changed argument of highlightHtml to Attr, not [String], for generality. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1232 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers')
-rw-r--r--Text/Pandoc/Writers/HTML.hs4
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 <<