From 7233a7a9329c6c4e75f84b9dca01cb05bf2a55b7 Mon Sep 17 00:00:00 2001 From: "Joseph C. Sible" Date: Sun, 29 Mar 2020 01:48:47 -0400 Subject: More cleanup (#6209) * Simplify by collapsing a do block into a single <$> * Remove an unnecessary variable: `all` takes any Foldable, so only blocksToInlines needs toList. --- test/Tests/Readers/Docx.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'test/Tests/Readers/Docx.hs') 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 -- cgit v1.2.3