diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-08-08 23:18:19 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-08 23:18:19 -0700 |
commit | dfa4b76630837560189844eb79c83abcb619b0f6 (patch) | |
tree | 5b7c1f288b16367fcfef56c7b47051098c56da6a /src/Text/Pandoc/Writers/LaTeX.hs | |
parent | 34f1f9716b620e3c50b7298abb6a78055d300ae8 (diff) | |
download | pandoc-dfa4b76630837560189844eb79c83abcb619b0f6.tar.gz |
Changes to literate haskell options.
- Removed writerLiterateHaskell from WriterOptions.
- Removed readerLiterateHaskell from ReaderOptions.
- Added Ext_literate_haskell to Extensions. Test for this
instead of the above.
- Removed failUnlessLHS from Shared.
Note: At this point, +lhs and .lhs extension no longer has any effect.
Need to fix.
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index e4788ab06..abbbd4d01 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -290,7 +290,7 @@ blockToLaTeX (BlockQuote lst) = do blockToLaTeX (CodeBlock (_,classes,keyvalAttr) str) = do opts <- gets stOptions case () of - _ | writerLiterateHaskell opts && "haskell" `elem` classes && + _ | isEnabled Ext_literate_haskell opts && "haskell" `elem` classes && "literate" `elem` classes -> lhsCodeBlock | writerListings opts -> listingsCodeBlock | writerHighlight opts && not (null classes) -> highlightedCodeBlock |