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

Use the wrapper.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-23 22:48:32 +02:00
parent 77bb7b9caa
commit f2265de1b7
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/members-payments.scm
View file

@ -132,9 +132,11 @@
;; Loads all accounts - it expects .csv files in given directory. ;; Loads all accounts - it expects .csv files in given directory.
(define (load-accounts accounts-list dir) (define (load-accounts accounts-list dir)
(map (lambda (acc) (with-progresses%
(bank-fio-parse (make-pathname dir (string-append acc ".csv")))) #t "Fio" (length accounts-list)
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 ;; Reads single number from given file and returns it. If no number
;; is and/or the file does not exist, returns #f. ;; is and/or the file does not exist, returns #f.