From 9c8a95e55775f43bf7b3ed0eefe02a4a24db94ec Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Sat, 27 Nov 2021 23:35:18 +0700 Subject: [PATCH] Junction: MonadRobot: appendToLog implementation --- src/ATrade/Driver/Junction/RobotDriverThread.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/ATrade/Driver/Junction/RobotDriverThread.hs b/src/ATrade/Driver/Junction/RobotDriverThread.hs index 4a55568..7266b79 100644 --- a/src/ATrade/Driver/Junction/RobotDriverThread.hs +++ b/src/ATrade/Driver/Junction/RobotDriverThread.hs @@ -43,7 +43,9 @@ import Data.Aeson (FromJSON, ToJSON) import Data.IORef (IORef, readIORef, writeIORef) import qualified Data.Map.Strict as M +import qualified Data.Text.Lazy as TL import Dhall (FromDhall) +import System.Log.Logger (infoM) data RobotDriverHandle = forall c s. RobotDriverHandle (StrategyInstance c s) ThreadId ThreadId (BoundedChan RobotDriverEvent) @@ -128,7 +130,8 @@ instance MonadRobot (RobotM c s) c s where bro <- asks broker liftIO $ void $ Bro.cancelOrder bro oid - appendToLog = undefined + appendToLog = liftIO . infoM "Robot" . TL.unpack + setupTimer = undefined enqueueIOAction = undefined getConfig = asks configRef >>= liftIO . readIORef