From 76c55466d3087224eccdc47c804ab2904be50df5 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 10 Feb 2017 23:59:47 +0100 Subject: Use new warnings throughout the code base. --- 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 548553579..e73065012 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -61,7 +61,7 @@ testForWarningsWithOptsIO :: ReaderOptions -> String -> FilePath -> [String] -> testForWarningsWithOptsIO opts name docxFile expected = do df <- B.readFile docxFile logs <- runIOorExplode (readDocx opts df >> P.getLog) - let warns = [s | (WARNING, s) <- logs] + let warns = [m | DocxParserWarning m <- logs] return $ test id name (unlines warns, unlines expected) testForWarningsWithOpts :: ReaderOptions -> String -> FilePath -> [String] -> Test -- cgit v1.2.3