diff options
Diffstat (limited to 'test/Tests/Readers/Docx.hs')
| -rw-r--r-- | test/Tests/Readers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index 4d2e0d276..840a033f5 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -92,7 +92,7 @@ testForWarningsWithOpts opts name docxFile expected = getMedia :: FilePath -> FilePath -> IO (Maybe B.ByteString) getMedia archivePath mediaPath = do zf <- toArchive <$> B.readFile archivePath - return $ findEntryByPath ("word/" ++ mediaPath) zf >>= (Just . fromEntry) + return $ fromEntry <$> findEntryByPath ("word/" ++ mediaPath) zf compareMediaPathIO :: FilePath -> MediaBag -> FilePath -> IO Bool compareMediaPathIO mediaPath mediaBag docxPath = do |