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

Add count to destroy candidates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-22 20:03:16 +01:00
parent 4093313e43
commit eb80b4e709
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
members-base.scm
View file

@ -324,7 +324,8 @@
(lambda (mr) (lambda (mr)
(>= (member-suspended-months mr) 24))))) (>= (member-suspended-months mr) 24)))))
(when (not (null? suspended2)) (when (not (null? suspended2))
(print (ansi #:magenta) " Suspended for at least 24 months: " a:default (print (ansi #:magenta) " Suspended for at least 24 months ("
(length suspended2) "): " a:default
(member-records->string (sort suspended2 member<?) "~N (~S)")))) (member-records->string (sort suspended2 member<?) "~N (~S)"))))
(when (not (null? invalid-mrs)) (when (not (null? invalid-mrs))
(print a:error " Invalid Id (" (length invalid-mrs) "): " (print a:error " Invalid Id (" (length invalid-mrs) "): "