voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

debug

This commit is contained in:
voidlizard 2024-11-01 17:26:28 +03:00
parent cba74369c4
commit 88f7e3048b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-core/lib/HBS2/Net/Messaging/TCP.hs
View File

@ -432,6 +432,8 @@ runMessagingTCP env@MessagingTCP{..} = liftIO do
-- FIXME: make-sure-it-is-correct -- FIXME: make-sure-it-is-correct
already <- readTVarIO _tcpPeerXp <&> HashMap.member pip already <- readTVarIO _tcpPeerXp <&> HashMap.member pip
guard (not already)
msgs <- readTVarIO defs <&> HashMap.findWithDefault mempty pip msgs <- readTVarIO defs <&> HashMap.findWithDefault mempty pip
unless (L.null msgs) do unless (L.null msgs) do
@ -456,8 +458,6 @@ runMessagingTCP env@MessagingTCP{..} = liftIO do
modifyTVar defs $ HashMap.delete pip modifyTVar defs $ HashMap.delete pip
forM_ mss $ \m -> writeTQueue q (pip, snd m) forM_ mss $ \m -> writeTQueue q (pip, snd m)
pure ()
stat <- ContT $ withAsync $ forever do stat <- ContT $ withAsync $ forever do
pause @'Seconds 120 pause @'Seconds 120
ps <- readTVarIO $ view tcpConnPeer env ps <- readTVarIO $ view tcpConnPeer env