send remote-daemon a RELOAD after making a ssh remote

This doesn't work yet, because RELOAD is buggy and does not notice the new
remote.

1 files changed, 7 insertions, 4 deletions

diff --git a/Assistant/Threads/RemoteControl.hs b/Assistant/Threads/RemoteControl.hs
index a886caeb9..317efe412 100644
--- a/Assistant/Threads/RemoteControl.hs
+++ b/Assistant/Threads/RemoteControl.hs
@@ -52,10 +52,12 @@ remoteControlThread = namedThread "RemoteControl" $ do
 remoteControllerThread :: Handle -> Assistant ()
 remoteControllerThread toh = do
 	clicker <- getAssistant remoteControl
-	liftIO $ forever $ do
-		msg <- readChan clicker
-		hPutStrLn toh $ unwords $ formatMessage msg
-		hFlush toh
+	forever $ do
+		msg <- liftIO $ readChan clicker
+		debug [show msg]
+		liftIO $ do
+			hPutStrLn toh $ unwords $ formatMessage msg
+			hFlush toh
 
 -- read status messages emitted by the remotedaemon and handle them
 remoteResponderThread :: Handle -> MVar (M.Map URI Remote) -> Assistant ()
@@ -63,6 +65,7 @@ remoteResponderThread fromh urimap = go M.empty
   where
 	go syncalerts = do
 		l <- liftIO $ hGetLine fromh
+		debug [l]
 		case parseMessage l of
 			Just (CONNECTED uri) -> changeconnected S.insert uri
 			Just (DISCONNECTED uri) -> changeconnected S.delete uri