From c4ffc84aef2690e0b565a9b2aed794a55fe9e2d3 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Wed, 5 Jan 2022 11:59:19 +0700 Subject: [PATCH] junction: reduce RemoteControl polling timeout --- src/ATrade/Driver/Junction.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/Driver/Junction.hs b/src/ATrade/Driver/Junction.hs index 127b57d..da9cc73 100644 --- a/src/ATrade/Driver/Junction.hs +++ b/src/ATrade/Driver/Junction.hs @@ -160,7 +160,7 @@ junctionMain descriptors = do notifications <- liftIO $ getNotifications broService forM_ notifications (liftIO . handleBrokerNotification robotsMap ordersMap handledNotifications globalLogger) saveRobots - handleRemoteControl 1000000 + handleRemoteControl 1000 where startRobots :: ProgramConfiguration -> JunctionM () startRobots cfg = forM_ (instances cfg) $ \inst -> do