From 0c50cd5de80eecbfab793bb7eccdf5404fe045f1 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Fri, 17 Mar 2023 16:27:15 -0300
Subject: queue.scm: Use newaliases(1) over postalias(8) on Postfix activation

---
 src/org/euandre/queue.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'src/org/euandre/queue.scm')

diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm
index 821dd0c..e9b6532 100644
--- a/src/org/euandre/queue.scm
+++ b/src/org/euandre/queue.scm
@@ -1127,7 +1127,7 @@ header_checks = regexp:{ { /^Received:.*/ IGNORE }, { /^X-Originating-IP:.*/ IGN
 
 (define (postfix-activation config)
   (match-record config <postfix-configuration>
-      (mail-directory queue-directory)
+      (package mail-directory queue-directory)
     #~(begin
         (use-modules (guix build utils))
         (let ((user (getpwnam "root")))
@@ -1138,10 +1138,8 @@ header_checks = regexp:{ { /^Received:.*/ IGNORE }, { /^X-Originating-IP:.*/ IGN
            "Creating Postfix queue directory: \"~a\".~%" #$queue-directory)
           (mkdir-p/perms #$queue-directory user #o755)
           (format (current-error-port)
-           "Updating /etc/aliases: FIXME.~%")
-          ;; FIXME: add -c option
-#;
-          (invoke #$(file-append postfix "/sbin/postalias") "/etc/aliases")))))
+           "Updating /etc/aliases.~%")
+          (invoke #$(file-append package "/bin/newaliases"))))))
 
 (define (postfix-shepherd-service config)
   (match-record config <postfix-configuration>
-- 
cgit v1.2.3