From 1623b5b1a4ad506ce7e832a3ba392e56fa9e6fce Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Fri, 20 Oct 2023 19:48:24 +0300 Subject: [PATCH] fixed pexinfo fix --- hbs2-peer/app/PeerMain.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs index af64ab51..3ec7dc03 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -711,7 +711,7 @@ runPeer opts = U.handle (\e -> myException e let pexFilt pips = do tcpex <- listTCPPexCandidates @e brains -- <&> HashSet.fromList pips2 <- filter onlyUDP <$> mapM toPeerAddr pips - pure (L.nub (pips2 <> tcpex)) + mapM fromPeerAddr (L.nub (pips2 <> tcpex)) where onlyUDP = \case (L4Address UDP _) -> True