From d3cbcd91ccebf4fd3d521f3a9b3375831caa1d74 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 15 Dec 2014 08:22:42 +0200
Subject: [PATCH] Slightly easier to digest test output

---
 test/Stackage/BuildPlanSpec.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test/Stackage/BuildPlanSpec.hs b/test/Stackage/BuildPlanSpec.hs
index 27a95dde..e81c8ab9 100644
--- a/test/Stackage/BuildPlanSpec.hs
+++ b/test/Stackage/BuildPlanSpec.hs
@@ -24,9 +24,10 @@ spec = it "works" $ do
         (name, lookup name (bpPackages bp')) `shouldBe`
         (name, lookup name (bpPackages bp))
 
-    bp' `shouldBe` bp
+    bpGithubUsers bp' `shouldBe` bpGithubUsers bp
+    when (bp' /= bp) $ error "bp' /= bp"
     bp2 <- updateBuildPlan bp
-    dropVersionRanges bp2 `shouldBe` dropVersionRanges bp
+    when (dropVersionRanges bp2 /= dropVersionRanges bp) $ error "bp2 /= bp"
   where
     dropVersionRanges bp =
         bp { bpPackages = map go $ bpPackages bp }