dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-10-06 09:58:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update Call.hs

Browse Source
This commit is contained in:
GuavaGoat
2026-08-25 05:22:52 +00:00
committed by GitHub
parent ca8a7eda69
commit 919ebedd6c
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Call.hs
+3 -1
View File
@@ -180,19 +180,21 @@ data WebRTCExtraInfo = WebRTCExtraInfo
}
deriving (Eq, Show)
data WebRTCCallStatus = WCSConnecting | WCSConnected | WCSDisconnected | WCSFailed
data WebRTCCallStatus = WCSConnecting | WCSConnected | WCSReconnecting | WCSDisconnected | WCSFailed
deriving (Show)
instance StrEncoding WebRTCCallStatus where
strEncode = \case
WCSConnecting -> "connecting"
WCSConnected -> "connected"
WCSReconnecting -> "reconnecting"
WCSDisconnected -> "disconnected"
WCSFailed -> "failed"
strP =
A.takeTill (== ' ') >>= \case
"connecting" -> pure WCSConnecting
"connected" -> pure WCSConnected
"reconnecting" -> pure WCSReconnecting
"disconnected" -> pure WCSDisconnected
"failed" -> pure WCSFailed
_ -> fail "bad WebRTCCallStatus"