From 5ede3855ee1d8dac235d6a740b975b4f9078d91f Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Wed, 17 Apr 2024 19:36:53 +0100
Subject: [PATCH] remove unused type

---
 src/Simplex/Messaging/Client/Agent.hs   |  1 -
 src/Simplex/Messaging/Server/Env/STM.hs | 10 ----------
 2 files changed, 11 deletions(-)

diff --git a/src/Simplex/Messaging/Client/Agent.hs b/src/Simplex/Messaging/Client/Agent.hs
index 4caececa3..50f12ac35 100644
--- a/src/Simplex/Messaging/Client/Agent.hs
+++ b/src/Simplex/Messaging/Client/Agent.hs
@@ -99,7 +99,6 @@ data SMPClientAgent = SMPClientAgent
     randomDrg :: TVar ChaChaDRG,
     smpClients :: TMap SMPServer SMPClientVar,
     smpSessions :: TMap SessionId SMPClient,
-    -- TODO add lookup by session ID
     srvSubs :: TMap SMPServer (TMap SMPSub C.APrivateAuthKey),
     pendingSrvSubs :: TMap SMPServer (TMap SMPSub C.APrivateAuthKey),
     reconnections :: TVar [Async ()],
diff --git a/src/Simplex/Messaging/Server/Env/STM.hs b/src/Simplex/Messaging/Server/Env/STM.hs
index 66c78f01b..11ea4fd07 100644
--- a/src/Simplex/Messaging/Server/Env/STM.hs
+++ b/src/Simplex/Messaging/Server/Env/STM.hs
@@ -21,9 +21,7 @@ import Data.X509.Validation (Fingerprint (..))
 import Network.Socket (ServiceName)
 import qualified Network.TLS as T
 import Numeric.Natural
-import Simplex.Messaging.Agent.Env.SQLite (Worker)
 import Simplex.Messaging.Agent.Lock
-import Simplex.Messaging.Client (SMPClient)
 import Simplex.Messaging.Client.Agent (SMPClientAgent, SMPClientAgentConfig, newSMPClientAgent)
 import Simplex.Messaging.Crypto (KeyHash (..))
 import qualified Simplex.Messaging.Crypto as C
@@ -132,14 +130,6 @@ data ProxyAgent = ProxyAgent
   { smpAgent :: SMPClientAgent
   }
 
-data RelaySession = RelaySession
-  { worker :: Worker,
-    -- SessionId??
-    smpClient :: SMPClient,
-    relayQ :: TBQueue (ClientId, CorrId, C.PublicKeyX25519, ByteString) -- FWD args from multiple clients using this server
-    -- can be used for QUOTA retries until the session is gone
-  }
-
 type ClientId = Int
 
 data Client = Client