home
/
code
/
tt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Dedup read-in peers before using them
[tt.git]
/
tt.rkt
diff --git
a/tt.rkt
b/tt.rkt
index
bc8e8bc
..
c8da01c
100644
(file)
--- a/
tt.rkt
+++ b/
tt.rkt
@@
-476,6
+476,7
@@
; TODO No need for map - can just iter
(void (concurrent-filter-map num-workers peer-download peers)))
; TODO No need for map - can just iter
(void (concurrent-filter-map num-workers peer-download peers)))
+(: uniq (∀ (α) (-> (Listof α) (Listof α))))
(define (uniq xs)
(set->list (list->set xs)))
(define (uniq xs)
(set->list (list->set xs)))
@@
-505,7
+506,7
@@
(map string->path paths)])]
[peers (append* (map file->peers paths))])
(log-info "Read-in ~a peers." (length peers))
(map string->path paths)])]
[peers (append* (map file->peers paths))])
(log-info "Read-in ~a peers." (length peers))
-
peers
))
+
(uniq peers)
))
(: log-writer-stop (-> Thread Void))
(define (log-writer-stop log-writer)
(: log-writer-stop (-> Thread Void))
(define (log-writer-stop log-writer)
This page took
0.019796 seconds
and
4
git commands to generate.