@@ -793,8 +793,7 @@ sendCtrlMsg mNid signal = do
794 case mNid of
794 case mNid of
795 Nothing -> do
795 Nothing -> do
796− ctrlChan <- localCtrlChan . processNode <$> ask
797− liftIO $ writeChan ctrlChan msg
796+ liftIO $ writeChan (localCtrlChan (processNode proc)) msg
798 Just nid ->
797 Just nid ->
799 liftIO $ sendBinary (processNode proc)
798 liftIO $ sendBinary (processNode proc)
800 (ProcessIdentifier (processId proc))
799 (ProcessIdentifier (processId proc))