Pass checked path to payments processing.

This commit is contained in:
Dominik Pantůček 2023-04-05 11:29:55 +02:00
parent 6553683eda
commit 209451468c
2 changed files with 4 additions and 4 deletions

View file

@ -119,7 +119,7 @@
;; If apikeys is not #f, loads the account numbers, loads bank
;; accounts and processes transactions.
(define (members-payments-process mb apikeys-file dir)
(define (members-payments-process mb apikeys-file dir checked-fn)
(if apikeys-file
(let* ((acc-list (load-accounts-list apikeys-file))
(accounts (if acc-list (load-accounts acc-list dir) #f)))