From baae726e56dd6732af11b327ab2b5666764195c3 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 2 Feb 2024 15:50:57 +0100 Subject: [PATCH] server timeout clients --- src-server/Server/Communication.hs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src-server/Server/Communication.hs b/src-server/Server/Communication.hs index 9ee7c86..02b9577 100644 --- a/src-server/Server/Communication.hs +++ b/src-server/Server/Communication.hs @@ -90,6 +90,14 @@ disconnectClients = mapM_ close clientSocket ) +timeoutClients + :: [(Maybe UUID, Socket)] + -> IO () +timeoutClients = mapM_ + (\(_, clientSocket) -> do + close clientSocket + ) + -- | Process incoming connection requests processRequests :: Game () processRequests = do