From fcf7ab5eca51a2427e67ed62a063ace4fdef4281 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Fri, 11 Oct 2024 23:34:59 +0700
Subject: [PATCH] Fix order update handling.

---
 src/TXMLConnector/Internal.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/TXMLConnector/Internal.hs b/src/TXMLConnector/Internal.hs
index c8597eb..44757ef 100644
--- a/src/TXMLConnector/Internal.hs
+++ b/src/TXMLConnector/Internal.hs
@@ -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"