Prepare payments for comment parsing of SEPA transactions.

This commit is contained in:
Dominik Pantůček 2023-03-30 22:36:58 +02:00
parent cbd5e89f6e
commit 3edfe6c02a

View file

@ -36,6 +36,7 @@
(chicken base) (chicken base)
(chicken string) (chicken string)
(chicken io) (chicken io)
(chicken irregex)
bank-account bank-account
member-record member-record
members-base members-base
@ -52,7 +53,9 @@
(if (null? transactions) (if (null? transactions)
mb mb
(let* ((transaction (car transactions)) (let* ((transaction (car transactions))
(varsym-id (string->number (bank-transaction-varsym transaction)))) (varsym-id
(string->number
(bank-transaction-varsym transaction))))
(loop (members-base-update mb (loop (members-base-update mb
(lambda (mr) (lambda (mr)
(eq? (member-id mr) (eq? (member-id mr)