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/HTML.hs | |
parent | b969863e0787ae560d55ca14238a94ac28d302cf (diff) |
Update tests to work with runPure.
Diffstat (limited to 'tests/Tests/Writers/HTML.hs')
-rw-r--r-- | tests/Tests/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Tests/Writers/HTML.hs b/tests/Tests/Writers/HTML.hs index 5bea99f71..0ce9aecb3 100644 --- a/tests/Tests/Writers/HTML.hs +++ b/tests/Tests/Writers/HTML.hs @@ -8,7 +8,7 @@ import Tests.Helpers import Text.Pandoc.Arbitrary() html :: (ToPandoc a) => a -> String -html = writeHtmlString def{ writerWrapText = WrapNone } . toPandoc +html = purely (writeHtmlString def{ writerWrapText = WrapNone }) . toPandoc {- "my test" =: X =?> Y |