@@ -22,12 +22,12 @@ compareOutput :: Options
2222compareOutput (wopts, ropts) nativeFileIn nativeFileOut = do
2323 nf <- UTF8.toText <$> BS.readFile nativeFileIn
2424 nf' <- UTF8.toText <$> BS.readFile nativeFileOut
25− df <- runIOorExplode $
26− readNative def nf >>=
25+ runIOorExplode $ do
26+ roundtripped <- readNative def nf >>=
2727 writeDocx wopts{writerUserDataDir = Just (".." </> "data")} >>=
2828 readDocx ropts
29− df' <- runIOorExplode (readNative def nf')
30− return (df, df')
29+ orig <- readNative def nf'
30+ return (roundtripped, orig)
3131
3232testCompareWithOptsIO :: Options -> String -> FilePath -> FilePath -> IO TestTree
3333testCompareWithOptsIO opts name nativeFileIn nativeFileOut = do