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

add more logging

Browse source
This commit is contained in:
nek0 2024-11-04 07:02:52 +01:00
parent acc0e12f1d
commit bcda028720
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -131,7 +131,7 @@ processRequests = do
forever $ sendMessageQueue curLevel sockContainer clientQueue forever $ sendMessageQueue curLevel sockContainer clientQueue
logPrintIO curLevel Verbose "enabled sender thread" logPrintIO curLevel Verbose "enabled sender thread"
pure t pure t
print clientSock logPrintIO curLevel Verbose $ show clientSock
liftIO $ STM.atomically $ do liftIO $ STM.atomically $ do
slist <- STM.takeTMVar socketList slist <- STM.takeTMVar socketList
STM.putTMVar STM.putTMVar

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

@ -62,7 +62,7 @@ receiveMessage curLevel socketList queueList sockContainer queue = do
then [] :: [B8.ByteString] then [] :: [B8.ByteString]
else map B8.tail $ init $ B8.split '>' $ B8.fromStrict rawMsg else map B8.tail $ init $ B8.split '>' $ B8.fromStrict rawMsg
logPrintIO curLevel Verbose $ "received messages: " <> show msgs logPrintIO curLevel Verbose $ "received messages: " <> show msgs
print msgs logPrintIO curLevel Verbose $ show msgs
mapM_ mapM_
(\msg -> do (\msg -> do
let mJsonMsg = A.decode' msg let mJsonMsg = A.decode' msg