[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/04: gnu: opensmtpd: Clarify phase name.

From: Tobias Geerinckx-Rice
Subject: 02/04: gnu: opensmtpd: Clarify phase name.
Date: Fri, 8 Jun 2018 10:00:47 -0400 (EDT)

nckx pushed a commit to branch master
in repository guix.

commit a1eabab1a3863a5e8e76d59cba451fa4f491726f
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Fri Jun 8 09:54:30 2018 +0200

    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.
 gnu/packages/mail.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index d04fc51..0effaa1 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -2030,12 +2030,12 @@ transfer protocols.")
          ;; historical interfaces such as sendmail, newaliases or makemap, the
          ;; smtpctl utility can operate in compatibility mode if called with 
          ;; historical name.
-         (add-after 'install 'install-compabilitymode
-           (lambda _
-             (let* ((out (assoc-ref %outputs "out"))
+         (add-after 'install 'install-compability-links
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out  (assoc-ref outputs "out"))
                     (sbin (string-append out "/sbin/")))
-               (for-each (lambda (cmd)
-                           (symlink "smtpctl" (string-append sbin cmd)))
+               (for-each (lambda (command)
+                           (symlink "smtpctl" (string-append sbin command)))
                          '("makemap" "sendmail" "send-mail"
                            "newaliases" "mailq")))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]