From 2dbb1e710d6d58fc00126d84763ec3597d92437d Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 18 Jun 2018 04:58:15 -0400 Subject: Use combined IPv6/IPv4 announce item for announcing toxid. --- examples/dhtd.hs | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'examples/dhtd.hs') diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 91fabc27..d7a069b4 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs @@ -1048,7 +1048,11 @@ clientSession s@Session{..} sock cnum h = do akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr) doit op announcer akey - (AnnounceMethod qsearch (Right asend) dhtBuckets + (AnnounceMethod qsearch (Right asend) + (\nid -> R.kclosest (searchSpace qsearch) + searchK + nid + <$> readTVar dhtBuckets) (announceTarget dta) announceInterval) dta @@ -1070,7 +1074,11 @@ clientSession s@Session{..} sock cnum h = do akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr) doit op announcer akey - (AnnounceMethod qsearch (Left $ asend pub) dhtBuckets + (AnnounceMethod qsearch (Left $ asend pub) + (\nid -> R.kclosest (searchSpace qsearch) + searchK + nid + <$> readTVar dhtBuckets) (announceTarget dta) announceInterval) dta -- cgit v1.2.3