fixed pexinfo fix

2023-10-20 19:48:24 +03:00 · 2023-10-20 19:48:24 +03:00 · 1623b5b1a4
parent 4d756d6eaf
commit 1623b5b1a4
1 changed files with 1 additions and 1 deletions
--- 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