From 321afed9c722525376f06640f412ba1cb2e42e6b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 20:36:32 +0200 Subject: [PATCH] Improve progress% nesting. --- src/members-payments.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/src/members-payments.scm b/src/members-payments.scm index 72b0a9f..94a2a19 100644 --- a/src/members-payments.scm +++ b/src/members-payments.scm @@ -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