aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests/Writers/AsciiDoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-11-27 11:52:42 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-01-25 17:07:39 +0100
commit1673bda95e83aa124241ffdf14d25282d4cad055 (patch)
tree08af8f0afda6fb46341f348a96b64f0bda33a80a /tests/Tests/Writers/AsciiDoc.hs
parentb969863e0787ae560d55ca14238a94ac28d302cf (diff)
downloadpandoc-1673bda95e83aa124241ffdf14d25282d4cad055.tar.gz
Update tests to work with runPure.
Diffstat (limited to 'tests/Tests/Writers/AsciiDoc.hs')
-rw-r--r--tests/Tests/Writers/AsciiDoc.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Tests/Writers/AsciiDoc.hs b/tests/Tests/Writers/AsciiDoc.hs
index 8ab216753..7103b838b 100644
--- a/tests/Tests/Writers/AsciiDoc.hs
+++ b/tests/Tests/Writers/AsciiDoc.hs
@@ -7,7 +7,7 @@ import Tests.Helpers
import Text.Pandoc.Arbitrary()
asciidoc :: (ToPandoc a) => a -> String
-asciidoc = writeAsciiDoc def{ writerWrapText = WrapNone } . toPandoc
+asciidoc = purely (writeAsciiDoc def{ writerWrapText = WrapNone }) . toPandoc
tests :: [Test]
tests = [ testGroup "emphasis"