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