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

Primitive EUR conversion.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:57:27 +02:00
parent 70e33d21d1
commit 6ef0ffca02
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
members-payments.scm
View file

@ -96,7 +96,13 @@
;; Total amount paid
(define (member-payments-total mr)
(foldl + 0 (map bank-transaction-amount
(foldl + 0 (map (lambda (tr)
(let ((amount (bank-transaction-amount tr))
(currency (bank-transaction-currency tr)))
(case currency
((CZK) amount)
((EUR) (* amount 25))
(else 0))))
(member-payments mr))))
)