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)
(accounts 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 ()
(progress%-advance (/ idx total))
(loop (members-payments-process-bank mb (car accounts) last-checked)