@@ -60,7 +60,7 @@ testCompare = testCompareWithOpts defopts
60testForWarningsWithOptsIO :: ReaderOptions -> String -> FilePath -> [String] -> IO TestTree
60testForWarningsWithOptsIO :: ReaderOptions -> String -> FilePath -> [String] -> IO TestTree
61testForWarningsWithOptsIO opts name docxFile expected = do
61testForWarningsWithOptsIO opts name docxFile expected = do
62 df <- B.readFile docxFile
62 df <- B.readFile docxFile
63− logs <- runIOorExplode (readDocx opts df >> P.getLog)
63+ logs <- runIOorExplode $ setVerbosity ERROR >> readDocx opts df >> P.getLog
64 let warns = [m | DocxParserWarning m <- logs]
64 let warns = [m | DocxParserWarning m <- logs]
65 return $ test id name (unlines warns, unlines expected)
65 return $ test id name (unlines warns, unlines expected)
@@ -94,7 +94,7 @@ compareMediaPathIO mediaPath mediaBag docxPath = do
94compareMediaBagIO :: FilePath -> IO Bool
94compareMediaBagIO :: FilePath -> IO Bool
95compareMediaBagIO docxFile = do
95compareMediaBagIO docxFile = do
96 df <- B.readFile docxFile
96 df <- B.readFile docxFile
97− mb <- runIOorExplode (readDocx defopts df >> P.getMediaBag)
97+ mb <- runIOorExplode $ readDocx defopts df >> P.getMediaBag
98 bools <- mapM
98 bools <- mapM
99 (\(fp, _, _) -> compareMediaPathIO fp mb docxFile)
99 (\(fp, _, _) -> compareMediaPathIO fp mb docxFile)
100 (mediaDirectory mb)
100 (mediaDirectory mb)