gnu: opensmtpd: Clarify phase name.
* gnu/packages/mail.scm (opensmtpd)[arguments]: Rename ‘install-compatibilitymode’ to ‘install-compatibility-links’ and avoid needless abbrevs while at it.
This commit is contained in:
parent
19fed04915
commit
a1eabab1a3
|
@ -2030,12 +2030,12 @@ transfer protocols.")
|
||||||
;; historical interfaces such as sendmail, newaliases or makemap, the
|
;; historical interfaces such as sendmail, newaliases or makemap, the
|
||||||
;; smtpctl utility can operate in compatibility mode if called with the
|
;; smtpctl utility can operate in compatibility mode if called with the
|
||||||
;; historical name.
|
;; historical name.
|
||||||
(add-after 'install 'install-compabilitymode
|
(add-after 'install 'install-compability-links
|
||||||
(lambda _
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let* ((out (assoc-ref %outputs "out"))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
(sbin (string-append out "/sbin/")))
|
(sbin (string-append out "/sbin/")))
|
||||||
(for-each (lambda (cmd)
|
(for-each (lambda (command)
|
||||||
(symlink "smtpctl" (string-append sbin cmd)))
|
(symlink "smtpctl" (string-append sbin command)))
|
||||||
'("makemap" "sendmail" "send-mail"
|
'("makemap" "sendmail" "send-mail"
|
||||||
"newaliases" "mailq")))
|
"newaliases" "mailq")))
|
||||||
#t)))))
|
#t)))))
|
||||||
|
|
Loading…
Reference in New Issue