diff options
author | joe <joe@jerkface.net> | 2018-06-18 04:58:15 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-06-18 04:58:15 -0400 |
commit | 2dbb1e710d6d58fc00126d84763ec3597d92437d (patch) | |
tree | ac9b3a9d13c1bd7f093492ab057175fe2c74fc2c /examples/dhtd.hs | |
parent | bbefd12b49de18f0608d2c2a0cbc52cab4266349 (diff) |
Use combined IPv6/IPv4 announce item for announcing toxid.
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 12 |
1 files changed, 10 insertions, 2 deletions
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 | |||
1048 | akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr) | 1048 | akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr) |
1049 | doit op announcer | 1049 | doit op announcer |
1050 | akey | 1050 | akey |
1051 | (AnnounceMethod qsearch (Right asend) dhtBuckets | 1051 | (AnnounceMethod qsearch (Right asend) |
1052 | (\nid -> R.kclosest (searchSpace qsearch) | ||
1053 | searchK | ||
1054 | nid | ||
1055 | <$> readTVar dhtBuckets) | ||
1052 | (announceTarget dta) | 1056 | (announceTarget dta) |
1053 | announceInterval) | 1057 | announceInterval) |
1054 | dta | 1058 | dta |
@@ -1070,7 +1074,11 @@ clientSession s@Session{..} sock cnum h = do | |||
1070 | akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr) | 1074 | akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr) |
1071 | doit op announcer | 1075 | doit op announcer |
1072 | akey | 1076 | akey |
1073 | (AnnounceMethod qsearch (Left $ asend pub) dhtBuckets | 1077 | (AnnounceMethod qsearch (Left $ asend pub) |
1078 | (\nid -> R.kclosest (searchSpace qsearch) | ||
1079 | searchK | ||
1080 | nid | ||
1081 | <$> readTVar dhtBuckets) | ||
1074 | (announceTarget dta) | 1082 | (announceTarget dta) |
1075 | announceInterval) | 1083 | announceInterval) |
1076 | dta | 1084 | dta |