From 6cb54c3defcc7f097e40c255c1dd370fe94b9916 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 14 Mar 2017 21:06:14 +0100 Subject: Got rid of distracting warning in test output. --- test/Tests/Readers/Docx.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test') diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index 215fced78..028a4ff2f 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -60,7 +60,7 @@ testCompare = testCompareWithOpts defopts testForWarningsWithOptsIO :: ReaderOptions -> String -> FilePath -> [String] -> IO TestTree testForWarningsWithOptsIO opts name docxFile expected = do df <- B.readFile docxFile - logs <- runIOorExplode (readDocx opts df >> P.getLog) + logs <- runIOorExplode $ setVerbosity ERROR >> readDocx opts df >> P.getLog let warns = [m | DocxParserWarning m <- logs] return $ test id name (unlines warns, unlines expected) @@ -94,7 +94,7 @@ compareMediaPathIO mediaPath mediaBag docxPath = do compareMediaBagIO :: FilePath -> IO Bool compareMediaBagIO docxFile = do df <- B.readFile docxFile - mb <- runIOorExplode (readDocx defopts df >> P.getMediaBag) + mb <- runIOorExplode $ readDocx defopts df >> P.getMediaBag bools <- mapM (\(fp, _, _) -> compareMediaPathIO fp mb docxFile) (mediaDirectory mb) -- cgit v1.2.3