junction: RemoteControl: fix incoming message polling

src/ATrade/Driver/Junction/RemoteControl.hs

@@ -98,13 +98,15 @@ handleRemoteControl timeout = do
   sock <- asks peRemoteControlSocket
   logger <- asks peLogAction
   evs <- poll (fromIntegral timeout) [Sock sock [In] Nothing]
-  unless (null evs) $ do
+  case evs of
-    rawRequest <- liftIO $ receive sock
+    (x:_) -> unless (null x) $ do
-    case parseRemoteControlRequest rawRequest of
+      rawRequest <- liftIO $ receive sock
-      Left err      -> logErrorWith logger "RemoteControl" ("Unable to parse request: " <> (T.pack . show) err)
+      case parseRemoteControlRequest rawRequest of
-      Right request -> do
+        Left err      -> logErrorWith logger "RemoteControl" ("Unable to parse request: " <> (T.pack . show) err)
-        response <- handleRequest request
+        Right request -> do
-        liftIO $ send sock [] (makeRemoteControlResponse response)
+          response <- handleRequest request
+          liftIO $ send sock [] (makeRemoteControlResponse response)
+    _ -> return ()
   where
     handleRequest (StartRobot inst)          = do
       startRobot inst