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