server timeout clients

2024-02-02 15:50:57 +01:00 · 2024-02-02 15:50:57 +01:00 · baae726e56
commit baae726e56
parent dda1389e42
1 changed files with 8 additions and 0 deletions
--- 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