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

100%

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 20:43:41 +02:00
parent 80947c58cd
commit 3ae1919570
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-payments.scm
View file

@ -157,7 +157,9 @@
(idx 0) (idx 0)
(accounts accounts)) (accounts accounts))
(if (null? accounts) (if (null? accounts)
(members-base-update mb identity member-sort-payments) (let ((mb (members-base-update mb identity member-sort-payments)))
(progress%-advance 1)
mb)
(let () (let ()
(progress%-advance (/ idx total)) (progress%-advance (/ idx total))
(loop (members-payments-process-bank mb (car accounts) last-checked) (loop (members-payments-process-bank mb (car accounts) last-checked)