Fix mailman building and jendasap-checked.

This commit is contained in:
Dominik Pantůček 2023-04-06 15:50:26 +02:00
parent f6c7faff84
commit 10174a81a2
2 changed files with 4 additions and 2 deletions

View file

@ -156,7 +156,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(if (-action-) (if (-action-)
(let ((mb (load-members (*members-directory*) #t))) (let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-) (if (-needs-bank-)
(members-payments-process mb (-apikeys-file-) (-bank-dir-) (jendasap-checked-)) (members-payments-process mb (-apikeys-file-) (-bank-dir-) (-jendasap-checked-))
mb)) mb))
#f)) #f))

View file

@ -33,6 +33,8 @@
) )
(import scheme (import scheme
(chicken base)
(chicken pathname)
utils) utils)
;; Where does the mailman binaries reside ;; Where does the mailman binaries reside
@ -40,7 +42,7 @@
;; Returns full path to given mailman binary ;; Returns full path to given mailman binary
(define (mailman-bin bin) (define (mailman-bin bin)
(make-path (*mailman-bin*) bin)) (make-pathname (*mailman-bin*) bin))
;; Mailman-specific process output lines capture ;; Mailman-specific process output lines capture
(define (get-mailman-output-lines bin) (define (get-mailman-output-lines bin)