From 12c75701be4b87fc438be68af5658d71e5578f62 Mon Sep 17 00:00:00 2001
From: "Joseph C. Sible" <josephcsible@users.noreply.github.com>
Date: Sat, 8 Feb 2020 12:12:01 -0500
Subject: Use <$> instead of >>= and return (#6128)

---
 test/Tests/Readers/Docx.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test/Tests/Readers/Docx.hs')

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
-- 
cgit v1.2.3