Do not load anything if nothing is to be done.

This commit is contained in:
Dominik Pantůček 2023-04-01 10:35:58 +02:00
parent 5106885c4e
commit e5f7a3ef47

View file

@ -119,10 +119,12 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; Load the members database (required for everything anyway)
(define MB
(if (-action-)
(let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-)
(members-payments-process mb (*apikeys-file*))
mb)))
mb))
#f))
;; If a member is specified by either id or nick, get its record
(define mr
@ -202,5 +204,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((fees)
(newline)
(print-members-fees-table MB))
(else
(print "Nothing to do."))
)