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