From 4dee3b1f0e7aee5eccab3e532071b16976d365f3 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Tue, 21 Jan 2025 21:43:49 +0700 Subject: [PATCH] BrokerClient: tweak timeouts --- src/ATrade/Broker/Client.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs index 1a7c81e..c02fb0e 100644 --- a/src/ATrade/Broker/Client.hs +++ b/src/ATrade/Broker/Client.hs @@ -225,7 +225,7 @@ bcSubmitOrder clientIdentity idCounter cmdVar logger order = do respVar <- newEmptyMVar sqnum <- nextId idCounter now <- getCurrentTime - result <- timeout 3000000 $ do + result <- timeout 10000000 $ do putMVar cmdVar (RequestSubmitOrder (RequestId sqnum) clientIdentity order, respVar, now) resp <- takeMVar respVar case resp of @@ -252,7 +252,7 @@ bcCancelOrder clientIdentity idCounter cmdVar logger orderId = do respVar <- newEmptyMVar sqnum <- nextId idCounter now <- getCurrentTime - result <- timeout 3000000 $ do + result <- timeout 10000000 $ do putMVar cmdVar (RequestCancelOrder (RequestId sqnum) clientIdentity orderId, respVar, now) resp <- takeMVar respVar case resp of @@ -280,7 +280,7 @@ bcGetNotifications clientIdentity idCounter notifSqnumRef cmdVar lastKnownNotifi sqnum <- nextId idCounter notifSqnum <- nextSqnum <$> readIORef notifSqnumRef now <- getCurrentTime - result <- timeout 3000000 $ do + result <- timeout 10000000 $ do putMVar cmdVar (RequestNotifications (RequestId sqnum) clientIdentity notifSqnum, respVar, now) resp <- takeMVar respVar case resp of