From 018b2abb4e198464e0962de8ed9b1da4d6b91a20 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Fri, 26 Mar 2021 09:23:50 -0400 Subject: [PATCH] Count peers discovered --- info.rkt | 2 +- tt.rkt | 12 +++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/info.rkt b/info.rkt index 6e94704..ea0ad4d 100644 --- a/info.rkt +++ b/info.rkt @@ -6,7 +6,7 @@ (define pkg-desc "twtxt client") (define version - "0.19.0") + "0.19.1") (define pkg-authors '("Siraaj Khandkar ")) (define deps diff --git a/tt.rkt b/tt.rkt index 2292a9a..5718783 100644 --- a/tt.rkt +++ b/tt.rkt @@ -635,9 +635,15 @@ [peers-all-prev (file->peers peers-all-file)] [peers-all - (peers-sort (uniq (append peers - peers-mentioned - peers-all-prev)))]) + (list->set (append peers + peers-mentioned + peers-all-prev))] + [n-peers-discovered + (set-count (set-subtract peers-all + (list->set peers-all-prev)))] + [peers-all + (peers-sort (set->list peers-all))]) + (log-info "Discovered ~a new peers." n-peers-discovered) (peers->file peers-mentioned peers-mentioned-file) (peers->file peers-all -- 2.20.1