aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-14 21:06:14 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-14 21:06:14 +0100
commit6cb54c3defcc7f097e40c255c1dd370fe94b9916 (patch)
treeefee0e963969d8724a4c2a65ba1748b80b1987f8 /test/Tests
parentebbaf2e965ad4f1ba6e5130a73840a531ececcaf (diff)
downloadpandoc-6cb54c3defcc7f097e40c255c1dd370fe94b9916.tar.gz
Got rid of distracting warning in test output.
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Readers/Docx.hs4
1 files changed, 2 insertions, 2 deletions
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)