junction: reduce RemoteControl polling timeout

4 years ago · c4ffc84aef
1 changed files with 1 additions and 1 deletions
--- a/src/ATrade/Driver/Junction.hs
+++ b/src/ATrade/Driver/Junction.hs
@ -160,7 +160,7 @@ junctionMain descriptors = do
				@@ -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