From bafdbc1dec778021eacbf621f1467ca78287d2a4 Mon Sep 17 00:00:00 2001
From: Evgeny <evgeny@poberezkin.com>
Date: Thu, 25 Dec 2025 13:00:29 +0000
Subject: [PATCH] smp protocol: fix encoding for SOKS/ENDS responses (#1683)

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

diff --git a/src/Simplex/Messaging/Protocol.hs b/src/Simplex/Messaging/Protocol.hs
index 4993aaac8..25b8ce357 100644
--- a/src/Simplex/Messaging/Protocol.hs
+++ b/src/Simplex/Messaging/Protocol.hs
@@ -1948,7 +1948,7 @@ instance ProtocolEncoding SMPVersion ErrorType BrokerMsg where
       e :: Encoding a => a -> ByteString
       e = smpEncode
       serviceResp tag n idsHash
-        | v >= serviceCertsSMPVersion = e (tag, ' ', n, idsHash)
+        | v >= rcvServiceSMPVersion = e (tag, ' ', n, idsHash)
         | otherwise = e (tag, ' ', n)
 
   protocolP v = \case
@@ -1993,7 +1993,7 @@ instance ProtocolEncoding SMPVersion ErrorType BrokerMsg where
     PONG_ -> pure PONG
     where
       serviceRespP resp
-        | v >= serviceCertsSMPVersion = resp <$> _smpP <*> smpP
+        | v >= rcvServiceSMPVersion = resp <$> _smpP <*> smpP
         | otherwise = resp <$> _smpP <*> pure mempty
 
   fromProtocolError = \case