diff options
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 |