From 529278d6ee63a70d78f763c46e448c6ed1d9de61 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Tue, 22 Sep 2020 18:28:07 -0400
Subject: [PATCH] Restore Eq for PaymentError for the test suite

---
 src/PaymentServer/Persistence.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/PaymentServer/Persistence.hs b/src/PaymentServer/Persistence.hs
index aa652af..f4ae39f 100644
--- a/src/PaymentServer/Persistence.hs
+++ b/src/PaymentServer/Persistence.hs
@@ -64,6 +64,11 @@ data PaymentError =
 
 instance Exception PaymentError
 
+instance Eq PaymentError where
+  AlreadyPaid == AlreadyPaid = True
+  PaymentFailed self == PaymentFailed other = show self == show other
+  self == other = False
+
 -- | Reasons that a voucher cannot be redeemed.
 data RedeemError =
   -- | The voucher has not been paid for.
-- 
GitLab