Rearrange docx writer roundtrip test.

I'm hoping this gives reproducible results on ghc 8.2.1.

1 files changed, 4 insertions, 4 deletions

diff --git a/test/Tests/Writers/Docx.hs b/test/Tests/Writers/Docx.hs
index fae41e9d4..a3e73b479 100644
--- a/test/Tests/Writers/Docx.hs
+++ b/test/Tests/Writers/Docx.hs
@@ -22,12 +22,12 @@ compareOutput :: Options
 compareOutput (wopts, ropts) nativeFileIn nativeFileOut = do
   nf <- UTF8.toText <$> BS.readFile nativeFileIn
   nf' <- UTF8.toText <$> BS.readFile nativeFileOut
-  df <- runIOorExplode $
-            readNative def nf >>=
+  runIOorExplode $ do
+    roundtripped <- readNative def nf >>=
             writeDocx wopts{writerUserDataDir = Just (".." </> "data")} >>=
             readDocx ropts
-  df' <- runIOorExplode (readNative def nf')
-  return (df, df')
+    orig <- readNative def nf'
+    return (roundtripped, orig)
 
 testCompareWithOptsIO :: Options -> String -> FilePath -> FilePath -> IO TestTree
 testCompareWithOptsIO opts name nativeFileIn nativeFileOut = do