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/Readers/Markdown.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/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index e21646446..0205e4603 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -422,7 +422,7 @@ codeBlockIndented = do lhsCodeBlock :: Parser [Char] ParserState (F Blocks) lhsCodeBlock = do - failUnlessLHS + guardEnabled Ext_literate_haskell (return . B.codeBlockWith ("",["sourceCode","literate","haskell"],[]) <$> (lhsCodeBlockBird <|> lhsCodeBlockLaTeX)) <|> (return . B.codeBlockWith ("",["sourceCode","haskell"],[]) <$> |