dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-10-01 21:39:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update Call.hs revert call status change

Browse Source 
minimization
This commit is contained in:
GuavaGoat
2026-08-29 05:46:49 +00:00
committed by GitHub
parent 47f9c6109e
commit 0f734b7a50
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Call.hs
+1 -3
View File
@@ -180,21 +180,19 @@ data WebRTCExtraInfo = WebRTCExtraInfo
}
deriving (Eq, Show)
data WebRTCCallStatus = WCSConnecting | WCSConnected | WCSReconnecting | WCSDisconnected | WCSFailed
data WebRTCCallStatus = WCSConnecting | WCSConnected | 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"