ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: opensmtpd: Clarify phase name.

Browse source 
* 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:
Tobias Geerinckx-Rice 2018-06-08 09:54:30 +02:00
parent 19fed04915
commit a1eabab1a3
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/mail.scm
View file

@ -2030,12 +2030,12 @@ (define-public opensmtpd
;; 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)))))