From 3b68a9f834b4701d15314c2dbed8c1ee159bda9a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 2 Jan 2024 13:01:57 +0100 Subject: [PATCH] Fix info without loaded ML. --- src/hackerbase.scm | 35 ++++++++++++++++++----------------- 1 file changed, 18 insertions(+), 17 deletions(-) diff --git a/src/hackerbase.scm b/src/hackerbase.scm index 24552d1..fcaa90a 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -288,23 +288,24 @@ (define* (check-mailing-list mls name #:pred? (pred? #f)) (define ml (find-mailman-list mls name)) - (let-values (((missing surplus) - (mailman-compare-members ml - (mbase-active-emails MB - #:suspended #t - #:pred? pred? - )))) - (if (null? (cdr ml)) - (print "Skipping ML check - not loaded") - (if (and (null? missing) - (null? surplus)) - (print (format "~a mailing list membership in sync." (string-capitalize name))) - (let () - (print (format "~a mailing list:" (string-capitalize name))) - (when (not (null? missing)) - (print " Missing: " missing)) - (when (not (null? surplus)) - (print " Outsiders: " surplus))))))) + (when ml + (let-values (((missing surplus) + (mailman-compare-members ml + (mbase-active-emails MB + #:suspended #t + #:pred? pred? + )))) + (if (null? (cdr ml)) + (print "Skipping ML check - not loaded") + (if (and (null? missing) + (null? surplus)) + (print (format "~a mailing list membership in sync." (string-capitalize name))) + (let () + (print (format "~a mailing list:" (string-capitalize name))) + (when (not (null? missing)) + (print " Missing: " missing)) + (when (not (null? surplus)) + (print " Outsiders: " surplus)))))))) (define (rada-ml-pred? mr) (or (brmember-council? mr)