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

junction: send getNotifications periodically

junction
Denis Tereshkin 4 years ago
parent
9963fbd536
commit
e2cdffc1f6
1 changed files with 6 additions and 3 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. 9
      src/ATrade/Driver/Junction.hs

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

@ -15,9 +15,10 @@ import ATrade.Broker.Client (BrokerClientHandle
startBrokerClient, startBrokerClient,
stopBrokerClient) stopBrokerClient)
import ATrade.Broker.Protocol (Notification (OrderNotification, TradeNotification), import ATrade.Broker.Protocol (Notification (OrderNotification, TradeNotification),
NotificationSqnum, NotificationSqnum (unNotificationSqnum),
getNotificationSqnum) getNotificationSqnum)
import ATrade.Driver.Junction.BrokerService (BrokerService, import ATrade.Driver.Junction.BrokerService (BrokerService,
getNotifications,
mkBrokerService) mkBrokerService)
import ATrade.Driver.Junction.ProgramConfiguration (ProgramConfiguration (..), import ATrade.Driver.Junction.ProgramConfiguration (ProgramConfiguration (..),
ProgramOptions (ProgramOptions, configPath)) ProgramOptions (ProgramOptions, configPath))
@ -214,8 +215,10 @@ junctionMain descriptors = do
withJunction env $ do withJunction env $ do
startRobots h cfg barsMap broService startRobots h cfg barsMap broService
forever $ do forever $ do
notifications <- liftIO $ getNotifications broService
forM_ notifications (liftIO . handleBrokerNotification robotsMap ordersMap handledNotifications (logger h))
saveRobots saveRobots
liftIO $ threadDelay 5000000 liftIO $ threadDelay 1000000
where where
saveRobots :: JunctionM () saveRobots :: JunctionM ()
saveRobots = do saveRobots = do
@ -264,7 +267,7 @@ junctionMain descriptors = do
Notification -> Notification ->
IO () IO ()
handleBrokerNotification robotsRef ordersMapRef handled logger notification= do handleBrokerNotification robotsRef ordersMapRef handled logger notification= do
logWith logger Trace "Junction" $ "Incoming notification: " <> (T.pack . show) notification logWith logger Trace "Junction" $ "Incoming notification: " <> (T.pack . show . unNotificationSqnum . getNotificationSqnum) notification
whenM (notMember (getNotificationSqnum notification) <$> readIORef handled) $ do whenM (notMember (getNotificationSqnum notification) <$> readIORef handled) $ do
robotsMap <- readIORef robotsRef robotsMap <- readIORef robotsRef
ordersMap <- readIORef ordersMapRef ordersMap <- readIORef ordersMapRef

Write Preview
Loading…
Cancel
Save