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

minor review

This commit is contained in:
Dmitry Zuikov 2023-05-22 07:02:19 +03:00
parent 209561f8c3
commit b0a25f6640
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -343,6 +343,7 @@ connectPeerTCP env peer = liftIO do
connect (show i) (show p) $ \(sock, remoteAddr) -> do connect (show i) (show p) $ \(sock, remoteAddr) -> do
spawnConnection Client env sock remoteAddr spawnConnection Client env sock remoteAddr
-- FIXME: tcp-pex. Где-то здесь добавить этих пиров в пекс ? -- FIXME: tcp-pex. Где-то здесь добавить этих пиров в пекс ?
-- REVIEW: так что в итоге? где-то здесь?
shutdown sock ShutdownBoth shutdown sock ShutdownBoth
runMessagingTCP :: forall m . MonadIO m => MessagingTCP -> m () runMessagingTCP :: forall m . MonadIO m => MessagingTCP -> m ()