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

fixed pexinfo fix

This commit is contained in:
Dmitry Zuikov 2023-10-20 19:48:24 +03:00
parent 4d756d6eaf
commit 1623b5b1a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/PeerMain.hs
View File

@ -711,7 +711,7 @@ runPeer opts = U.handle (\e -> myException e
let pexFilt pips = do let pexFilt pips = do
tcpex <- listTCPPexCandidates @e brains -- <&> HashSet.fromList tcpex <- listTCPPexCandidates @e brains -- <&> HashSet.fromList
pips2 <- filter onlyUDP <$> mapM toPeerAddr pips pips2 <- filter onlyUDP <$> mapM toPeerAddr pips
pure (L.nub (pips2 <> tcpex)) mapM fromPeerAddr (L.nub (pips2 <> tcpex))
where where
onlyUDP = \case onlyUDP = \case
(L4Address UDP _) -> True (L4Address UDP _) -> True