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

better wording

Browse source
This commit is contained in:
nek0 2024-04-08 02:42:07 +02:00
parent 96b6db4755
commit 8691274c56
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -121,7 +121,7 @@ processRequests = do
void $ liftIO $ forkIO $ forever $ acceptConnection mainSocket socketList queue void $ liftIO $ forkIO $ forever $ acceptConnection mainSocket socketList queue
where where
acceptConnection mainSocket socketList queue = do acceptConnection mainSocket socketList queue = do
putStrLn "New connection request incoming…" putStrLn "Ready for new connection requests…"
(clientSock, _) <- accept mainSocket (clientSock, _) <- accept mainSocket
clientThreadId <- liftIO $ forkIO $ forever $ do clientThreadId <- liftIO $ forkIO $ forever $ do
receiveMessage clientSock queue socketList receiveMessage clientSock queue socketList