From 5b3c52c50b5301d009fb9a0d44b4cf91d50f6de4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 13 Jun 2025 22:49:29 +0200
Subject: Terminate ICE thread when server is stopped

Changelog: Improved handling of ICE connections
---
 src/Erebos/Discovery.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Erebos/Discovery.hs')

diff --git a/src/Erebos/Discovery.hs b/src/Erebos/Discovery.hs
index d203866..d098f98 100644
--- a/src/Erebos/Discovery.hs
+++ b/src/Erebos/Discovery.hs
@@ -384,6 +384,12 @@ instance Service DiscoveryService where
                 Just ref -> sendToPeer peer $ DiscoverySearch ref
                 Nothing -> return ()
 
+#ifdef ENABLE_ICE_SUPPORT
+    serviceStopServer _ _ _ pstates = do
+        forM_ pstates $ \( _, DiscoveryPeerState {..} ) -> do
+            mapM_ iceStopThread dpsIceConfig
+#endif
+
 
 identityDigests :: Foldable f => Identity f -> [ RefDigest ]
 identityDigests pid = map (refDigest . storedRef) $ idDataF =<< unfoldOwners pid
-- 
cgit v1.2.3