mirror of https://github.com/voidlizard/hbs2
tuned ping
This commit is contained in:
parent
3cec2f711f
commit
a41a3098fd
|
@ -154,7 +154,7 @@ peerPingLoop = do
|
||||||
fnum <- liftIO $ readTVarIO pfails
|
fnum <- liftIO $ readTVarIO pfails
|
||||||
fdown <- liftIO $ readTVarIO pdownfails
|
fdown <- liftIO $ readTVarIO pdownfails
|
||||||
|
|
||||||
when (fnum > 2) do -- FIXME: hardcode!
|
when (fnum > 4) do -- FIXME: hardcode!
|
||||||
warn $ "removing peer" <+> pretty p <+> "for not responding to our pings"
|
warn $ "removing peer" <+> pretty p <+> "for not responding to our pings"
|
||||||
delPeers pl [p]
|
delPeers pl [p]
|
||||||
expire (PeerInfoKey p)
|
expire (PeerInfoKey p)
|
||||||
|
|
Loading…
Reference in New Issue