|
|
|
|
@ -349,7 +349,8 @@ handleTransaqData transaqData = do
@@ -349,7 +349,8 @@ handleTransaqData transaqData = do
|
|
|
|
|
log Debug "TXMLConnector.WorkThread" $ "Sending order notification: " <> (T.pack . show) notif |
|
|
|
|
liftIO $ atomically $ do |
|
|
|
|
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)) |
|
|
|
|
liftIO $ cb notif |
|
|
|
|
_ -> log Warning "TXMLConnector.WorkThread" "Unable to find order for order notification" |
|
|
|
|
|