Fixed writer tests not to use writerUserDataDir.

1 files changed, 3 insertions, 3 deletions

diff --git a/test/Tests/Writers/Docx.hs b/test/Tests/Writers/Docx.hs
index ec147604c..9e6150abc 100644
--- a/test/Tests/Writers/Docx.hs
+++ b/test/Tests/Writers/Docx.hs
@@ -3,7 +3,7 @@ module Tests.Writers.Docx (tests) where
 import System.FilePath ((</>))
 import Test.Tasty
 import Tests.Helpers
-import Text.Pandoc.Class (runIOorExplode)
+import Text.Pandoc.Class (runIOorExplode, setUserDataDir)
 import Text.Pandoc.Definition
 import Text.Pandoc.Options
 import Text.Pandoc.Walk
@@ -24,9 +24,9 @@ compareOutput (wopts, ropts) nativeFileIn nativeFileOut = do
   nf <- UTF8.toText <$> BS.readFile nativeFileIn
   nf' <- UTF8.toText <$> BS.readFile nativeFileOut
   runIOorExplode $ do
+    setUserDataDir $ Just (".." </> "data")
     roundtripped <- readNative def nf >>=
-            writeDocx wopts{writerUserDataDir = Just (".." </> "data")} >>=
-            readDocx ropts
+            writeDocx wopts >>= readDocx ropts
     orig <- readNative def nf'
     return (walk fixImages roundtripped, walk fixImages orig)