cleanup

2024-10-31 21:01:53 +01:00 · 2024-10-31 21:01:53 +01:00 · 7e3a153c66
commit 7e3a153c66
parent 71a760e054
1 changed files with 1 additions and 0 deletions
--- a/src-server/Server/Communication.hs
+++ b/src-server/Server/Communication.hs
@ -57,6 +57,7 @@ terminateGameOnSigint = do
      putStrLn "SIGINT caught, terminating…"
      clients <- liftIO $ STM.atomically $ STM.readTMVar clientList
      disconnectClients clientList clients
+      threadDelay (10 ^ 6)
      close sock
      st <- STM.atomically $ STM.readTMVar serverState
      void $ STM.atomically $ STM.swapTMVar serverState $ st