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

Improve progress% nesting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 20:36:32 +02:00
parent 052d71eabe
commit 321afed9c7
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/members-payments.scm
View file

@ -145,22 +145,22 @@
;; accounts and processes transactions.
(define (members-payments-process mb apikeys-file dir checked-fn)
(if apikeys-file
(with-progress%
#t "Payments"
(progress%-advance 0)
(let* ((acc-list (load-accounts-list apikeys-file))
(accounts (if acc-list (load-accounts acc-list dir) #f))
(last-checked (get-latest-checked-id checked-fn)))
(if accounts
(let* ((acc-list (load-accounts-list apikeys-file))
(accounts (if acc-list (load-accounts acc-list dir) #f))
(last-checked (get-latest-checked-id checked-fn)))
(if accounts
(with-progress%
#t "Payments"
(progress%-advance 0)
(let ((mbp (foldl (lambda (mb ba)
(members-payments-process-bank mb ba last-checked))
mb
(filter identity
accounts))))
(members-base-update mbp identity member-sort-payments))
(let ()
(print "Warning: no accounts loaded!")
mb))))
(members-base-update mbp identity member-sort-payments)))
(let ()
(print "Warning: no accounts loaded!")
mb)))
mb))
;; Adds all balances - payments are converted to CZK in member-payments-total