nek0/wizard-wipeout
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

server timeout clients

Browse source
This commit is contained in:
nek0 2024-02-02 15:50:57 +01:00
parent dda1389e42
commit baae726e56
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src-server/Server/Communication.hs
View file

@ -90,6 +90,14 @@ disconnectClients = mapM_
close clientSocket close clientSocket
) )
timeoutClients
:: [(Maybe UUID, Socket)]
-> IO ()
timeoutClients = mapM_
(\(_, clientSocket) -> do
close clientSocket
)
-- | Process incoming connection requests -- | Process incoming connection requests
processRequests :: Game () processRequests :: Game ()
processRequests = do processRequests = do