asakul
/
transaq-connector
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Fix order update handling.

master
Denis Tereshkin 1 year ago
parent
3f3ee97b9f
commit
fcf7ab5eca
1 changed files with 2 additions and 1 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. 3
      src/TXMLConnector/Internal.hs

3
src/TXMLConnector/Internal.hs
Unescape View File

@ -349,7 +349,8 @@ handleTransaqData transaqData = do
log Debug "TXMLConnector.WorkThread" $ "Sending order notification: " <> (T.pack . show) notif log Debug "TXMLConnector.WorkThread" $ "Sending order notification: " <> (T.pack . show) notif
liftIO $ atomically $ do liftIO $ atomically $ do
m <- readTVar (bsOrderTransactionIdMap brState) m <- readTVar (bsOrderTransactionIdMap brState)
when (BM.notMemberR (ExchangeOrderId (oOrderNo orderUpdate)) m) $ do when (oOrderNo orderUpdate /= 0 &&
BM.notMemberR (ExchangeOrderId (oOrderNo orderUpdate)) m) $ do
modifyTVar' (bsOrderTransactionIdMap brState) (BM.insert oid (ExchangeOrderId $ oOrderNo orderUpdate)) modifyTVar' (bsOrderTransactionIdMap brState) (BM.insert oid (ExchangeOrderId $ oOrderNo orderUpdate))
liftIO $ cb notif liftIO $ cb notif
_ -> log Warning "TXMLConnector.WorkThread" "Unable to find order for order notification" _ -> log Warning "TXMLConnector.WorkThread" "Unable to find order for order notification"

Write Preview
Loading…
Cancel
Save