asakul
/
libatrade
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

BrokerClient: ignore packets with mismatched request id

master
Denis Tereshkin 11 months ago
parent
86fa7d53c1
commit
b05bc4fe32
1 changed files with 1 additions and 3 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      src/ATrade/Broker/Client.hs

4
src/ATrade/Broker/Client.hs
Unescape View File

@ -157,9 +157,7 @@ brokerClientThread socketIdentity ep cmd comp killMv notificationCallbacks logge
(req, respVar, _) <- takeMVar respVar (req, respVar, _) <- takeMVar respVar
if getRequestId req == getResponseRequestId resp if getRequestId req == getResponseRequestId resp
then putMVar respVar resp then putMVar respVar resp
else do else log Warning "Broker.Client" $ TL.toStrict $ [t|Request ID mismatch: %?/%?|] (getRequestId req) (getResponseRequestId resp)
log Warning "Broker.Client" $ TL.toStrict $ [t|Request ID mismatch: %?/%?|] (getRequestId req) (getResponseRequestId resp)
putMVar respVar (ResponseError (getRequestId req) "Request ID mismatch")
handleMessage _ (IncomingNotification notif) = callNotificationCallbacks notif handleMessage _ (IncomingNotification notif) = callNotificationCallbacks notif
callNotificationCallbacks notif = mapM_ (\cb -> cb notif) notificationCallbacks callNotificationCallbacks notif = mapM_ (\cb -> cb notif) notificationCallbacks

Write Preview
Loading…
Cancel
Save