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/Readers | |
| parent | b969863e0787ae560d55ca14238a94ac28d302cf (diff) | |
| download | pandoc-1673bda95e83aa124241ffdf14d25282d4cad055.tar.gz | |
Update tests to work with runPure.
Diffstat (limited to 'tests/Tests/Readers')
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 2 | ||||
| -rw-r--r-- | tests/Tests/Readers/Odt.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index 0d31eb629..3e630dd49 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -26,7 +26,7 @@ noNorm :: Pandoc -> NoNormPandoc noNorm = NoNormPandoc instance ToString NoNormPandoc where - toString d = writeNative def{ writerTemplate = s } $ toPandoc d + toString d = purely (writeNative def{ writerTemplate = s }) $ toPandoc d where s = case d of NoNormPandoc (Pandoc (Meta m) _) | M.null m -> Nothing diff --git a/tests/Tests/Readers/Odt.hs b/tests/Tests/Readers/Odt.hs index 56711c76b..dff62c54b 100644 --- a/tests/Tests/Readers/Odt.hs +++ b/tests/Tests/Readers/Odt.hs @@ -41,7 +41,7 @@ newtype NoNormPandoc = NoNormPandoc {unNoNorm :: Pandoc} deriving ( Show ) instance ToString NoNormPandoc where - toString d = writeNative def{ writerTemplate = s } $ toPandoc d + toString d = purely (writeNative def{ writerTemplate = s }) $ toPandoc d where s = case d of NoNormPandoc (Pandoc (Meta m) _) | M.null m -> Nothing |