Start printing unpaired.

This commit is contained in:
Dominik Pantůček 2023-04-05 20:17:44 +02:00
parent 2b0ddb18c2
commit 65ca6ecf6e
2 changed files with 15 additions and 2 deletions

View file

@ -71,7 +71,7 @@
(bankrow (assoc "bankId" head))
(bank (if bankrow (cadr bankrow) "ERROR")))
(make-bank-account num bank
(map make-fio-transaction body)))
(map make-fio-transaction (cdr body))))
(let ()
(print "Fio: cannot load account " fn)
#f