core: include session code in all session states (#3374)

This commit is contained in:
Evgeny Poberezkin
2023-11-15 13:17:31 +00:00
committed by GitHub
parent fa9d61caa4
commit b71daed3ec
5 changed files with 82 additions and 45 deletions
+1 -2
View File
@@ -1967,8 +1967,7 @@ processChatCommand = \case
StoreRemoteFile rh encrypted_ localPath -> withUser_ $ CRRemoteFileStored rh <$> storeRemoteFile rh encrypted_ localPath
GetRemoteFile rh rf -> withUser_ $ getRemoteFile rh rf >> ok_
ConnectRemoteCtrl inv -> withUser_ $ do
(rc_, ctrlAppInfo) <- connectRemoteCtrl inv
let remoteCtrl_ = (`remoteCtrlInfo` True) <$> rc_
(remoteCtrl_, ctrlAppInfo) <- connectRemoteCtrl inv
pure CRRemoteCtrlConnecting {remoteCtrl_, ctrlAppInfo, appVersion = currentAppVersion}
FindKnownRemoteCtrl -> withUser_ $ findKnownRemoteCtrl >> ok_
ConfirmRemoteCtrl rc -> withUser_ $ confirmRemoteCtrl rc >> ok_