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/ICE.chs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Erebos/ICE.chs')

diff --git a/src/Erebos/ICE.chs b/src/Erebos/ICE.chs
index 6f61451..cc2fdcc 100644
--- a/src/Erebos/ICE.chs
+++ b/src/Erebos/ICE.chs
@@ -8,6 +8,7 @@ module Erebos.ICE (
     IceRemoteInfo,
 
     iceCreateConfig,
+    iceStopThread,
     iceCreateSession,
     iceDestroy,
     iceRemoteInfo,
@@ -138,6 +139,12 @@ iceCreateConfig stun turn =
           then return Nothing
           else Just . IceConfig <$> newForeignPtr ice_cfg_free cfg
 
+foreign import ccall unsafe "pjproject.h ice_cfg_stop_thread"
+    ice_cfg_stop_thread :: Ptr PjIceStransCfg -> IO ()
+
+iceStopThread :: IceConfig -> IO ()
+iceStopThread (IceConfig fcfg) = withForeignPtr fcfg ice_cfg_stop_thread
+
 {#pointer *pj_ice_strans as ^ #}
 
 iceCreateSession :: IceConfig -> IceSessionRole -> (IceSession -> IO ()) -> IO IceSession
-- 
cgit v1.2.3