From c838dd586a875391571ba22768d65c2bdafa72cf Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 13 Jan 2025 20:12:58 +0700
Subject: [PATCH] BrokerClient: set correlate/relaxed options on socket

---
 src/ATrade/Broker/Client.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs
index f52caf0..e55b866 100644
--- a/src/ATrade/Broker/Client.hs
+++ b/src/ATrade/Broker/Client.hs
@@ -54,7 +54,8 @@ import           System.ZMQ4                    (Context, Event (In),
                                                  Sub (Sub), Switch (On),
                                                  connect, poll, receive,
                                                  receiveMulti, restrict, send,
-                                                 setLinger, setTcpKeepAlive,
+                                                 setLinger, setReqCorrelate,
+                                                 setReqRelaxed, setTcpKeepAlive,
                                                  setTcpKeepAliveCount,
                                                  setTcpKeepAliveIdle,
                                                  setTcpKeepAliveInterval,
@@ -101,6 +102,8 @@ brokerClientThread socketIdentity ctx ep cmd comp killMv secParams logger = fina
             else do
               return ()) $ withSocket ctx Req (\sock -> do
         setLinger (restrict 0) sock
+        setReqCorrelate True sock
+        setReqRelaxed True sock
 
         case cspCertificate secParams of
           Just clientCert -> zapApplyCertificate clientCert sock