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

Fix fees and web export.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-18 15:45:23 +02:00
parent 2be2371a77
commit fd15ff2821
4 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-fees.scm
View file

@ -183,9 +183,7 @@
;; Summarizes (cons students full) counts
(define (members-summary mb)
(let ((members (filter
brmember-active?
(mbase-members mb))))
(let ((members (find-members-by-predicate mb brmember-active?)))
(foldl (lambda (acc mr)
(cons (+ (car acc) (if (brmember-student? mr) 1 0))
(+ (cdr acc) (if (brmember-student? mr) 0 1))))