From 086655b148028a81fc1df4e8a8969a0d980771fb Mon Sep 17 00:00:00 2001 From: shum Date: Fri, 16 Oct 2026 14:46:54 +0000 Subject: [PATCH] smp-server: rename sendResolved to sendResp --- src/Simplex/Messaging/Server.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Simplex/Messaging/Server.hs b/src/Simplex/Messaging/Server.hs index 3b209bd67..f03dc34b3 100644 --- a/src/Simplex/Messaging/Server.hs +++ b/src/Simplex/Messaging/Server.hs @@ -2211,9 +2211,9 @@ client r2 <- liftEitherWith (const BLOCK) $ EncResponse <$> C.cbEncrypt clientSecret (fromMaybe (C.reverseNonce clientNonce) nonce_) r' paddedProxiedTLength let fr = FwdResponse {fwdCorrId, fwdResponse = r2} pure $ RRES nonce_ $ EncFwdResponse $ C.cbEncryptNoPad sessSecret (C.reverseNonce proxyNonce) (smpEncode fr) - forkFwdCmd corrId' entId' timeoutErr cmdAction = forkCmd_ serverResolverConcurrency forwardedCmdWait (sendResolved timeoutErr) (cmdAction >>= sendResolved) + forkFwdCmd corrId' entId' timeoutErr cmdAction = forkCmd_ serverResolverConcurrency forwardedCmdWait (sendResp timeoutErr) (cmdAction >>= sendResp) where - sendResolved msg = do + sendResp msg = do rres <- either ERR id <$> runExceptT (encodeResp (corrId', entId', msg)) atomically $ writeTBQueue sndQ ([(corrId, NoEntity, rres)], []) -- the inner response, or Nothing if forked (RSLV).