Repair config key usage

This commit is contained in:
Tony Garnock-Jones 2021-02-18 20:26:38 +01:00
parent 6d42a5ea87
commit 3dd7c80de9

View File

@ -31,9 +31,11 @@
(send-account-registration-email! email)))
(define (sender-address)
(or (@ (config) user-directory)
(or (@ (config) email-sender-address)
"pkgs@racket-lang.org"))
(log-racket-pkg-website/users-info "Will use sender address ~v" (sender-address))
(define (send-password-reset-email! email)
(log-racket-pkg-website/users-info "Sending password reset email to ~v" email)
(send-mail-message