From 7e3a153c665be636a0555a7141c6350cefc9e000 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Thu, 31 Oct 2024 21:01:53 +0100
Subject: [PATCH] cleanup

---
 src-server/Server/Communication.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src-server/Server/Communication.hs b/src-server/Server/Communication.hs
index d741356..43e7537 100644
--- 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