From 1f63740d565d43d033558ee62cfb5a8c2fe4575d Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Wed, 26 Jun 2024 16:25:13 +0400
Subject: [PATCH] instance

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

diff --git a/src/Simplex/Messaging/Protocol.hs b/src/Simplex/Messaging/Protocol.hs
index 6f33a9f54..6df83ea14 100644
--- a/src/Simplex/Messaging/Protocol.hs
+++ b/src/Simplex/Messaging/Protocol.hs
@@ -971,6 +971,8 @@ data ProtocolServer p = ProtocolServer
 
 data AProtocolServer = forall p. ProtocolTypeI p => AProtocolServer (SProtocolType p) (ProtocolServer p)
 
+deriving instance Show AProtocolServer
+
 instance ProtocolTypeI p => IsString (ProtocolServer p) where
   fromString = parseString strDecode