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

Add to total table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:37:53 +02:00
parent 606a208237
commit 70e33d21d1
3 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
members-payments.scm
View file

@ -80,19 +80,19 @@
(if apikeys-file
(let* ((accounts (load-accounts
(load-accounts-list apikeys-file))))
(map member-add-balances
(map member-add-balance
(foldl members-payments-process-bank
mb
accounts)))
mb))
;; Adds all balances
(define (member-add-balances mr)
(define (member-add-balance mr)
(dict-set mr
'balances
'balance
(make-dict `((fees . ,(member-fees-total mr))
(credit . ,(member-credit-total mr))
(balance . ,(member-payments-total mr))))))
(payment . ,(member-payments-total mr))))))
;; Total amount paid
(define (member-payments-total mr)