diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-07-07 10:28:25 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-07-07 10:28:25 -0700 |
| commit | 1cd99f98807fdc656b4fc6518ee5c6642ac9626c (patch) | |
| tree | 58c2de5a230249af69b85f19035538d69a6ab960 /src/Text/Pandoc | |
| parent | 6a68dbe5ae92b3a6356068b00dc53fd6dd4e39e3 (diff) | |
| download | pandoc-1cd99f98807fdc656b4fc6518ee5c6642ac9626c.tar.gz | |
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.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index e62a06b4f..08cd18ad0 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -285,7 +285,7 @@ blockToHtml opts (CodeBlock (id',classes,keyvals) rawCode) = do attrs = [theclass (unwords classes') | not (null classes')] ++ [prefixedId opts id' | not (null id')] ++ map (\(x,y) -> strAttr x y) keyvals - addBird = if "literate" `elem` classes + addBird = if "literate" `elem` classes' then unlines . map ("> " ++) . lines else unlines . lines in return $ pre ! attrs $ thecode << |