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

Fix info without loaded ML.

Browse source
This commit is contained in:
Dominik Pantůček 2024-01-02 13:01:57 +01:00
parent 0e82221c16
commit 3b68a9f834
1 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/hackerbase.scm
View file

@ -288,23 +288,24 @@
(define* (check-mailing-list mls name #:pred? (pred? #f)) (define* (check-mailing-list mls name #:pred? (pred? #f))
(define ml (find-mailman-list mls name)) (define ml (find-mailman-list mls name))
(let-values (((missing surplus) (when ml
(mailman-compare-members ml (let-values (((missing surplus)
(mbase-active-emails MB (mailman-compare-members ml
#:suspended #t (mbase-active-emails MB
#:pred? pred? #:suspended #t
)))) #:pred? pred?
(if (null? (cdr ml)) ))))
(print "Skipping ML check - not loaded") (if (null? (cdr ml))
(if (and (null? missing) (print "Skipping ML check - not loaded")
(null? surplus)) (if (and (null? missing)
(print (format "~a mailing list membership in sync." (string-capitalize name))) (null? surplus))
(let () (print (format "~a mailing list membership in sync." (string-capitalize name)))
(print (format "~a mailing list:" (string-capitalize name))) (let ()
(when (not (null? missing)) (print (format "~a mailing list:" (string-capitalize name)))
(print " Missing: " missing)) (when (not (null? missing))
(when (not (null? surplus)) (print " Missing: " missing))
(print " Outsiders: " surplus))))))) (when (not (null? surplus))
(print " Outsiders: " surplus))))))))
(define (rada-ml-pred? mr) (define (rada-ml-pred? mr)
(or (brmember-council? mr) (or (brmember-council? mr)