From f2265de1b7fc8ec43eaf159a1d69e49ff5f2a5da Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Fri, 23 Jun 2023 22:48:32 +0200 Subject: [PATCH] Use the wrapper. --- src/members-payments.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/members-payments.scm b/src/members-payments.scm index 31c5ce0..dbf01e4 100644 --- a/src/members-payments.scm +++ b/src/members-payments.scm @@ -132,9 +132,11 @@ ;; Loads all accounts - it expects .csv files in given directory. (define (load-accounts accounts-list dir) - (map (lambda (acc) - (bank-fio-parse (make-pathname dir (string-append acc ".csv")))) - accounts-list)) + (with-progresses% + #t "Fio" (length accounts-list) + (map (lambda (acc) + (bank-fio-parse (make-pathname dir (string-append acc ".csv")))) + accounts-list))) ;; Reads single number from given file and returns it. If no number ;; is and/or the file does not exist, returns #f.