From 36513047b25c568facddfdae72330f988653d996 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Sat, 17 Mar 2018 09:50:22 +0700 Subject: [PATCH] BrokerClient: set identity --- src/ATrade/Broker/Client.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs index 1917882..a0dc950 100644 --- a/src/ATrade/Broker/Client.hs +++ b/src/ATrade/Broker/Client.hs @@ -57,7 +57,7 @@ brokerClientThread socketIdentity ctx ep cmd resp comp killMv secParams = finall else do putMVar resp (ResponseError "Response error")) $ withSocket ctx Req (\sock -> do setLinger (restrict 0) sock - setIdentity (restrict socketIdentity) sock + setIdentity(restrict socketIdentity) sock debugM "Broker.Client" $ "Connecting to: " ++ show (T.unpack ep) case cspCertificate secParams of Just clientCert -> zapApplyCertificate clientCert sock