diff options
author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-11-24 10:36:30 -0500 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:39 +0100 |
commit | 211d0f95749aa4de916361463d5c0e246c8ff720 (patch) | |
tree | 5fad25942b8dc046d33c3c2d5a1a23407a9011c9 /tests/Tests/Writers | |
parent | 989971fce1066db17f104fb52bf64d990d3767ab (diff) | |
download | pandoc-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.hs | 3 |
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') |