From 60b4f394bcd27a097f1a97d460cddc27ead59ba7 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Mon, 8 Feb 2016 15:09:21 +0100
Subject: test: Compare on dump

For reasons I don't understand the Xml representations differ despite
their textual representations being identical.
---
 hypsrc-test/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'hypsrc-test')

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
-- 
cgit v1.2.3