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

Make directory argument mandatory for members payments processing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-02 19:33:52 +02:00
parent 48636fc965
commit f7babb257e
1 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/members-payments.scm
View file

@ -105,20 +105,16 @@
;; If apikeys is not #f, loads the account numbers, loads bank ;; If apikeys is not #f, loads the account numbers, loads bank
;; accounts and processes transactions. ;; accounts and processes transactions.
(define (members-payments-process mb apikeys-file . dirs) (define (members-payments-process mb apikeys-file dir)
(let ((dir (if (null? dirs) (if apikeys-file
(current-directory) (let* ((accounts (load-accounts
(or (car dirs) (load-accounts-list apikeys-file)
(current-directory))))) dir)))
(if apikeys-file (map member-add-balance
(let* ((accounts (load-accounts (foldl members-payments-process-bank
(load-accounts-list apikeys-file) mb
dir))) accounts)))
(map member-add-balance mb))
(foldl members-payments-process-bank
mb
accounts)))
mb)))
;; Adds all balances - payments are converted to CZK in member-payments-total ;; Adds all balances - payments are converted to CZK in member-payments-total
(define (member-add-balance mr) (define (member-add-balance mr)