diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-10 23:59:47 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-11 00:14:44 +0100 |
| commit | 76c55466d3087224eccdc47c804ab2904be50df5 (patch) | |
| tree | 8e605c9a6ab89569d8b51898f31487ac0c005a22 /test/Tests/Readers | |
| parent | 8ad7e2c21fd00d8225c5f243bf3383c956b6c83b (diff) | |
Use new warnings throughout the code base.
Diffstat (limited to 'test/Tests/Readers')
| -rw-r--r-- | test/Tests/Readers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |