From 211d0f95749aa4de916361463d5c0e246c8ff720 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Thu, 24 Nov 2016 10:36:30 -0500 Subject: 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. --- tests/Tests/Writers/Docx.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests/Tests/Writers') 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') -- cgit v1.2.3