server timeout clients

This commit is contained in:
nek0 2024-02-02 15:50:57 +01:00
parent dda1389e42
commit baae726e56

View file

@ -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