core, ui: add remote host/controller stop reasons to events (#3472)
This commit is contained in:
committed by
GitHub
parent
d29f1bb0cf
commit
d4ac1c0cf2
@@ -1084,8 +1084,8 @@ data RemoteHostError
|
||||
deriving (Show, Exception)
|
||||
|
||||
data RemoteHostStopReason
|
||||
= RHSRConnectionFailed ChatError
|
||||
| RHSRCrashed ChatError
|
||||
= RHSRConnectionFailed {chatError :: ChatError}
|
||||
| RHSRCrashed {chatError :: ChatError}
|
||||
| RHSRDisconnected
|
||||
deriving (Show, Exception)
|
||||
|
||||
@@ -1106,9 +1106,9 @@ data RemoteCtrlError
|
||||
deriving (Show, Exception)
|
||||
|
||||
data RemoteCtrlStopReason
|
||||
= RCSRDiscoveryFailed ChatError
|
||||
| RCSRConnectionFailed ChatError
|
||||
| RCSRSetupFailed ChatError
|
||||
= RCSRDiscoveryFailed {chatError :: ChatError}
|
||||
| RCSRConnectionFailed {chatError :: ChatError}
|
||||
| RCSRSetupFailed {chatError :: ChatError}
|
||||
| RCSRDisconnected
|
||||
deriving (Show, Exception)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user