aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test/Main.hs
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-02-08 15:40:44 +0100
committerBen Gamari <ben@smart-cactus.org>2016-02-08 15:40:44 +0100
commit228a0d72baa04be161b0fc918266f2edb0c6519b (patch)
tree43246f722a0f28614019243e34dfd83e5ca29217 /hypsrc-test/Main.hs
parent8a4c949bfc731ef0dcd83d557da278d162152fb5 (diff)
parenta427f597e081ce37a881e6612efeab7ef0bb0dac (diff)
Merge branch 'fix-up-testsuite'
Diffstat (limited to 'hypsrc-test/Main.hs')
-rw-r--r--hypsrc-test/Main.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/hypsrc-test/Main.hs b/hypsrc-test/Main.hs
index 0490be47..d3ab79a8 100644
--- a/hypsrc-test/Main.hs
+++ b/hypsrc-test/Main.hs
@@ -3,6 +3,7 @@
import Data.Char
import Data.List
+import Data.Function (on)
import System.Environment
import System.FilePath
@@ -13,9 +14,10 @@ import Test.Haddock.Xhtml
checkConfig :: CheckConfig Xml
checkConfig = CheckConfig
- { ccfgRead = \_ input -> strip <$> parseXml input
+ { ccfgRead = parseXml
+ , ccfgClean = \_ -> strip
, ccfgDump = dumpXml
- , ccfgEqual = (==)
+ , ccfgEqual = (==) `on` dumpXml
}
where
strip = stripAnchors' . stripLinks' . stripFooter