From 919ebedd6c6ba4a7cb14db3404993c1f2c105ab2 Mon Sep 17 00:00:00 2001
From: GuavaGoat <320862384+GuavaGoat@users.noreply.github.com>
Date: Tue, 25 Aug 2026 05:22:52 +0000
Subject: [PATCH] Update Call.hs

---
 src/Simplex/Chat/Call.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Simplex/Chat/Call.hs b/src/Simplex/Chat/Call.hs
index 18398ecb3e..dc220210f9 100644
--- a/src/Simplex/Chat/Call.hs
+++ b/src/Simplex/Chat/Call.hs
@@ -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"