From 8691274c5680b9139d61bc44a97b322b72c7b0b7 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 8 Apr 2024 02:42:07 +0200 Subject: [PATCH] better wording --- src-server/Server/Communication.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src-server/Server/Communication.hs b/src-server/Server/Communication.hs index 4190bc7..a83b63f 100644 --- a/src-server/Server/Communication.hs +++ b/src-server/Server/Communication.hs @@ -121,7 +121,7 @@ processRequests = do void $ liftIO $ forkIO $ forever $ acceptConnection mainSocket socketList queue where acceptConnection mainSocket socketList queue = do - putStrLn "New connection request incoming…" + putStrLn "Ready for new connection requests…" (clientSock, _) <- accept mainSocket clientThreadId <- liftIO $ forkIO $ forever $ do receiveMessage clientSock queue socketList