aboutsummaryrefslogtreecommitdiff
path: root/html-test
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-02-08 14:25:49 +0100
committerBen Gamari <ben@smart-cactus.org>2016-02-08 14:54:56 +0100
commit4ca91adcbd26dfa5f102244f8170c5c74f5200db (patch)
treec46673b85fba14b889940bd9b4e09cc9dd9490e0 /html-test
parent25b8d00a149098d9b7842600dbb93f40836b4546 (diff)
testsuite: Rework handling of output sanitization
Previously un-cleaned artifacts were kept as reference output, making it difficult to tell what has changed and causing spurious changes in the version control history. Here we rework this, cleaning the output during acceptance. To accomplish this it was necessary to move to strict I/O to ensure the reference handle was closed before accept attempts to open the reference file.
Diffstat (limited to 'html-test')
-rwxr-xr-xhtml-test/Main.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/html-test/Main.hs b/html-test/Main.hs
index 3880fc3c..02a86d43 100755
--- a/html-test/Main.hs
+++ b/html-test/Main.hs
@@ -12,7 +12,8 @@ import Test.Haddock.Xhtml
checkConfig :: CheckConfig Xml
checkConfig = CheckConfig
- { ccfgRead = \mdl input -> stripIfRequired mdl <$> parseXml input
+ { ccfgRead = parseXml
+ , ccfgClean = stripIfRequired
, ccfgDump = dumpXml
, ccfgEqual = (==)
}