diff --git a/src/ATrade/Driver/Junction/RemoteControl.hs b/src/ATrade/Driver/Junction/RemoteControl.hs index 0287f38..95d3f24 100644 --- a/src/ATrade/Driver/Junction/RemoteControl.hs +++ b/src/ATrade/Driver/Junction/RemoteControl.hs @@ -8,7 +8,8 @@ module ATrade.Driver.Junction.RemoteControl ) where import ATrade.Driver.Junction.JunctionMonad (JunctionEnv (peLogAction, peRemoteControlSocket, peRobots), - JunctionM) + JunctionM, + startRobot) import ATrade.Driver.Junction.RobotDriverThread (stopRobot) import ATrade.Driver.Junction.Types (StrategyInstanceDescriptor) import ATrade.Logging (Severity (Info), @@ -96,7 +97,9 @@ handleRemoteControl timeout = do response <- handleRequest request liftIO $ send sock [] (makeRemoteControlResponse response) where - handleRequest (StartRobot inst) = undefined + handleRequest (StartRobot inst) = do + startRobot inst + return ResponseOk handleRequest (StopRobot instId) = do robotsRef <- asks peRobots robots <- readIORef robotsRef