aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests/Writers
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2016-11-24 10:36:30 -0500
committerJohn MacFarlane <jgm@berkeley.edu>2017-01-25 17:07:39 +0100
commit211d0f95749aa4de916361463d5c0e246c8ff720 (patch)
tree5fad25942b8dc046d33c3c2d5a1a23407a9011c9 /tests/Tests/Writers
parent989971fce1066db17f104fb52bf64d990d3767ab (diff)
downloadpandoc-211d0f95749aa4de916361463d5c0e246c8ff720.tar.gz
Tests: have docx writer test use runIOorExplode.
Note that part of the reason for making a pure writer is to have better tests, so this is a temporary fix.
Diffstat (limited to 'tests/Tests/Writers')
-rw-r--r--tests/Tests/Writers/Docx.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Tests/Writers/Docx.hs b/tests/Tests/Writers/Docx.hs
index 31fc3a47b..a76583796 100644
--- a/tests/Tests/Writers/Docx.hs
+++ b/tests/Tests/Writers/Docx.hs
@@ -9,6 +9,7 @@ import Text.Pandoc.Readers.Docx
import Text.Pandoc.Writers.Docx
import Text.Pandoc.Error
import System.FilePath ((</>))
+import Text.Pandoc.Class (runIOorExplode)
type Options = (WriterOptions, ReaderOptions)
@@ -20,7 +21,7 @@ compareOutput opts nativeFileIn nativeFileOut = do
nf <- Prelude.readFile nativeFileIn
nf' <- Prelude.readFile nativeFileOut
let wopts = fst opts
- df <- writeDocx wopts{writerUserDataDir = Just (".." </> "data")}
+ df <- runIOorExplode $ writeDocx wopts{writerUserDataDir = Just (".." </> "data")}
(handleError $ readNative nf)
let (p, _) = handleError $ readDocx (snd opts) df
return (p, handleError $ readNative nf')