From dfa4b76630837560189844eb79c83abcb619b0f6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 8 Aug 2012 23:18:19 -0700 Subject: 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. --- tests/Tests/Readers/Markdown.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests/Tests/Readers') diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index dbb96c15f..8d0b567e9 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -6,6 +6,7 @@ import Test.Framework import Tests.Helpers import Tests.Arbitrary() import Text.Pandoc.Builder +import qualified Data.Set as Set -- import Text.Pandoc.Shared ( normalize ) import Text.Pandoc @@ -91,7 +92,8 @@ tests = [ testGroup "inline code" =?> para (note (para "See [^1]")) ] , testGroup "lhs" - [ test (readMarkdown def{ readerLiterateHaskell = True }) + [ test (readMarkdown def{ readerExtensions = Set.insert + Ext_literate_haskell $ readerExtensions def }) "inverse bird tracks and html" $ "> a\n\n< b\n\n
\n" =?> codeBlockWith ("",["sourceCode","literate","haskell"],[]) "a" -- cgit v1.2.3