diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-11-27 11:52:42 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:39 +0100 |
| commit | 1673bda95e83aa124241ffdf14d25282d4cad055 (patch) | |
| tree | 08af8f0afda6fb46341f348a96b64f0bda33a80a /tests/Tests/Writers/Markdown.hs | |
| parent | b969863e0787ae560d55ca14238a94ac28d302cf (diff) | |
| download | pandoc-1673bda95e83aa124241ffdf14d25282d4cad055.tar.gz | |
Update tests to work with runPure.
Diffstat (limited to 'tests/Tests/Writers/Markdown.hs')
| -rw-r--r-- | tests/Tests/Writers/Markdown.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/Tests/Writers/Markdown.hs b/tests/Tests/Writers/Markdown.hs index aab916b38..aa8a732f1 100644 --- a/tests/Tests/Writers/Markdown.hs +++ b/tests/Tests/Writers/Markdown.hs @@ -9,10 +9,10 @@ import Tests.Helpers import Text.Pandoc.Arbitrary() markdown :: (ToPandoc a) => a -> String -markdown = writeMarkdown def . toPandoc +markdown = purely (writeMarkdown def) . toPandoc markdownWithOpts :: (ToPandoc a) => WriterOptions -> a -> String -markdownWithOpts opts x = writeMarkdown opts $ toPandoc x +markdownWithOpts opts x = purely (writeMarkdown opts) $ toPandoc x {- "my test" =: X =?> Y @@ -179,7 +179,7 @@ shortcutLinkRefsTests = (=:) :: (ToString a, ToPandoc a) => String -> (a, String) -> Test - (=:) = test (writeMarkdown (def {writerReferenceLinks = True}) . toPandoc) + (=:) = test (purely (writeMarkdown def{writerReferenceLinks = True}) . toPandoc) in testGroup "Shortcut reference links" [ "Simple link (shortcutable)" =: (para (link "/url" "title" "foo")) |