Fix most members base filters.

2023-04-04 22:57:14 +02:00 · 2023-04-04 22:57:14 +02:00 · 08a2eb2251
commit 08a2eb2251
parent f2874ebe5d
3 changed files with 18 additions and 16 deletions
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@ -128,11 +128,11 @@
       (let* ((acc-list (load-accounts-list apikeys-file))
 	      (accounts (if acc-list (load-accounts acc-list dir) #f)))
 	 (if accounts
-	     (map member-sort-payments
-		  (foldl members-payments-process-bank
-			 mb
-			 (filter identity
-				 accounts)))
+	     (let ((mbp (foldl members-payments-process-bank
+			       mb
+			       (filter identity
+				       accounts))))
+	       (members-base-update mb identity member-sort-payments))
 	     (let ()
 	       (print "Warning: no accounts loaded!")
 	       mb)))