diff options
Diffstat (limited to 'test/Tests/Readers')
-rw-r--r-- | test/Tests/Readers/Docx.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index 3caaa1316..456e0affe 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -90,9 +90,8 @@ testForWarningsWithOpts opts name docxFile expected = -- testForWarnings = testForWarningsWithOpts defopts getMedia :: FilePath -> FilePath -> IO (Maybe B.ByteString) -getMedia archivePath mediaPath = do - zf <- toArchive <$> B.readFile archivePath - return $ fromEntry <$> findEntryByPath ("word/" ++ mediaPath) zf +getMedia archivePath mediaPath = fmap fromEntry . findEntryByPath + ("word/" ++ mediaPath) . toArchive <$> B.readFile archivePath compareMediaPathIO :: FilePath -> MediaBag -> FilePath -> IO Bool compareMediaPathIO mediaPath mediaBag docxPath = do |