From 6fd619b7e219ac1da9bad92ea63bb37752a493b0 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Thu, 9 Mar 2017 11:21:35 +0700 Subject: [PATCH] BrokerClient: increased timeout --- src/ATrade/Broker/Client.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs index 60c3164..5f8bbc8 100644 --- a/src/ATrade/Broker/Client.hs +++ b/src/ATrade/Broker/Client.hs @@ -70,7 +70,7 @@ brokerClientThread ctx ep cmd resp comp killMv secParams = finally brokerClientT whileM_ (andM [isNothing <$> tryReadMVar killMv, (== False) <$> readIORef isTimeout]) $ do request <- takeMVar cmd send sock [] (BL.toStrict $ encode request) - incomingMessage <- timeout 1000000 $ receive sock + incomingMessage <- timeout 5000000 $ receive sock case incomingMessage of Just msg -> case decode . BL.fromStrict $ msg of Just response -> putMVar resp response