brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Sync mlcheck with mlsync.

Browse source
This commit is contained in:
Dominik Pantůček 2024-01-16 21:54:10 +01:00
parent a64ab232c6
commit 939af54e87
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/hackerbase.scm
View file

@ -286,13 +286,13 @@
(print " " (car keys) ": " (length (ldict-ref status (car keys))))) (print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys))))))) (loop (cdr keys)))))))
(define* (check-mailing-list mls name #:pred? (pred? #f)) (define* (check-mailing-list mls name #:pred? (pred? #f) #:suspended (suspended #f))
(define ml (find-mailman-list mls name)) (define ml (find-mailman-list mls name))
(when ml (when ml
(let-values (((missing surplus) (let-values (((missing surplus)
(mailman-compare-members ml (mailman-compare-members ml
(mbase-active-emails MB (mbase-active-emails MB
#:suspended #t #:suspended suspended
#:pred? pred? #:pred? pred?
)))) ))))
(if (null? (cdr ml)) (if (null? (cdr ml))
@ -323,7 +323,7 @@
(let () (let ()
(print-members-base-table MB) (print-members-base-table MB)
(newline) (newline)
(check-mailing-list MLS "internal") (check-mailing-list MLS "internal" #:suspended #t)
(check-mailing-list MLS "rada" (check-mailing-list MLS "rada"
#:pred? rada-ml-pred?) #:pred? rada-ml-pred?)
(check-mailing-list MLS "rk" #:pred? brmember-revision?) (check-mailing-list MLS "rk" #:pred? brmember-revision?)