summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2018-06-08 09:54:30 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2018-06-08 16:00:17 +0200
commita1eabab1a3863a5e8e76d59cba451fa4f491726f (patch)
tree0ee6a001395b223f46e7544805e24d413855352f /gnu/packages
parent19fed0491502bcd64cd51666449a4a384f42fef9 (diff)
downloadguix-a1eabab1a3863a5e8e76d59cba451fa4f491726f.tar.gz
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.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/mail.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index d04fc518c8..0effaa16a2 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 the
          ;; 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")))
              #t)))))