core: remote error handling (#3347)

* core: remote error handling

* fix test, show DB errors
This commit is contained in:
Evgeny Poberezkin
2023-11-11 16:03:12 +00:00
committed by GitHub
parent beb22c6f87
commit 8b67ff7a00
4 changed files with 33 additions and 34 deletions
+1 -1
View File
@@ -1955,7 +1955,7 @@ processChatCommand = \case
ListRemoteHosts -> withUser_ $ CRRemoteHostList <$> listRemoteHosts
SwitchRemoteHost rh_ -> withUser_ $ CRCurrentRemoteHost <$> switchRemoteHost rh_
StartRemoteHost rh_ -> withUser_ $ do
(remoteHost_, inv) <- startRemoteHost' rh_
(remoteHost_, inv) <- startRemoteHost rh_
pure CRRemoteHostStarted {remoteHost_, invitation = decodeLatin1 $ strEncode inv}
StopRemoteHost rh_ -> withUser_ $ closeRemoteHost rh_ >> ok_
DeleteRemoteHost rh -> withUser_ $ deleteRemoteHost rh >> ok_