asakul
/
robocom-zero
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

junction: reduce RemoteControl polling timeout

master
Denis Tereshkin 4 years ago
parent
b68874a1ff
commit
c4ffc84aef
1 changed files with 1 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      src/ATrade/Driver/Junction.hs

2
src/ATrade/Driver/Junction.hs
Unescape View File

@ -160,7 +160,7 @@ junctionMain descriptors = do
notifications <- liftIO $ getNotifications broService notifications <- liftIO $ getNotifications broService
forM_ notifications (liftIO . handleBrokerNotification robotsMap ordersMap handledNotifications globalLogger) forM_ notifications (liftIO . handleBrokerNotification robotsMap ordersMap handledNotifications globalLogger)
saveRobots saveRobots
handleRemoteControl 1000000 handleRemoteControl 1000
where where
startRobots :: ProgramConfiguration -> JunctionM () startRobots :: ProgramConfiguration -> JunctionM ()
startRobots cfg = forM_ (instances cfg) $ \inst -> do startRobots cfg = forM_ (instances cfg) $ \inst -> do

Write Preview
Loading…
Cancel
Save