git.iko.soy/typeable/pandoc
on master help sign in
Addendum to the fix to issue #242.

The previous fix resulted in bird tracks being included in both html and html+lhs renderings of literate haskell sections when pandoc was compiled without highlighting support. This change make pandoc without highlighting behave like pandoc with highlighting: the bird tracks are used only if html+lhs output is specified.

commit1cd99f98807fdc656b4fc6518ee5c6642ac9626c authorJohn MacFarlane <jgm@berkeley.edu> dateWed 7 Jul 2010, 10:28 (16 years ago) parent6a68dbe
1 file changed+1−1
compare with master
unifiedsplit
src/Text/Pandoc/Writers/HTML.hs+1−1
src/Text/Pandoc/Writers/HTML.hs+1−1
@@ -285,7 +285,7 @@ blockToHtml opts (CodeBlock (id',classes,keyvals) rawCode) = do
285285 attrs = [theclass (unwords classes') | not (null classes')] ++
286286 [prefixedId opts id' | not (null id')] ++
287287 map (\(x,y) -> strAttr x y) keyvals
288− addBird = if "literate" `elem` classes
288+ addBird = if "literate" `elem` classes'
289289 then unlines . map ("> " ++) . lines
290290 else unlines . lines
291291 in return $ pre ! attrs $ thecode <<