From 0906f9d27c93a7504b2f1e3ffdc60cddfebcd625 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Jun 2024 21:23:15 +0200 Subject: [PATCH] List spec fee. --- src/members-print.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index 360e316..211fd54 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -531,6 +531,10 @@ payment total balance + (let ((spec-fee (brmember-spec-fee mr))) + (if spec-fee + spec-fee + "normal")) ))) raw-members)) (balances (map (lambda (m) @@ -552,8 +556,7 @@ (let ((total (list-ref member 5))) (list (list-ref member 0) (list-ref member 1) - "---" - + (sprintf "\t~A" (list-ref member 5)) (sprintf "\t~A" (list-ref member 2)) (sprintf "\t~A" (list-ref member 3)) (sprintf "\t~A" (list-ref member 4))