aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test
diff options
context:
space:
mode:
Diffstat (limited to 'hypsrc-test')
-rw-r--r--hypsrc-test/Main.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/hypsrc-test/Main.hs b/hypsrc-test/Main.hs
index 01cc5429..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
@@ -16,7 +17,7 @@ checkConfig = CheckConfig
{ ccfgRead = parseXml
, ccfgClean = \_ -> strip
, ccfgDump = dumpXml
- , ccfgEqual = (==)
+ , ccfgEqual = (==) `on` dumpXml
}
where
strip = stripAnchors' . stripLinks' . stripFooter