From 4bf9f2b535f290664efcd9f842d9b8e6e29717a2 Mon Sep 17 00:00:00 2001
From: JRoberts <8711996+jr-simplex@users.noreply.github.com>
Date: Sat, 10 Sep 2022 22:03:51 +0400
Subject: [PATCH] Eq for ACommandTag (#520)

---
 src/Simplex/Messaging/Agent/Protocol.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Simplex/Messaging/Agent/Protocol.hs b/src/Simplex/Messaging/Agent/Protocol.hs
index 7579f13bc..5b0370d0b 100644
--- a/src/Simplex/Messaging/Agent/Protocol.hs
+++ b/src/Simplex/Messaging/Agent/Protocol.hs
@@ -297,6 +297,8 @@ data ACommandTag (p :: AParty) where
   ERR_ :: ACommandTag Agent
   SUSPENDED_ :: ACommandTag Agent
 
+deriving instance Eq (ACommandTag p)
+
 deriving instance Show (ACommandTag p)
 
 aCommandTag :: ACommand p -> ACommandTag p