@@ -60,7 +60,7 @@ testCompare = testCompareWithOpts defopts
6060testForWarningsWithOptsIO :: ReaderOptions -> String -> FilePath -> [String] -> IO TestTree
6161testForWarningsWithOptsIO opts name docxFile expected = do
6262 df <- B.readFile docxFile
63− logs <- runIOorExplode (readDocx opts df >> P.getLog)
63+ logs <- runIOorExplode $ setVerbosity ERROR >> readDocx opts df >> P.getLog
6464 let warns = [m | DocxParserWarning m <- logs]
6565 return $ test id name (unlines warns, unlines expected)
6666
@@ -94,7 +94,7 @@ compareMediaPathIO mediaPath mediaBag docxPath = do
9494compareMediaBagIO :: FilePath -> IO Bool
9595compareMediaBagIO docxFile = do
9696 df <- B.readFile docxFile
97− mb <- runIOorExplode (readDocx defopts df >> P.getMediaBag)
97+ mb <- runIOorExplode $ readDocx defopts df >> P.getMediaBag
9898 bools <- mapM
9999 (\(fp, _, _) -> compareMediaPathIO fp mb docxFile)
100100 (mediaDirectory mb)