From 02cbc5f26ba400b12efeedaf6b5c6812c26367f4 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sat, 22 Mar 2025 15:10:42 +0300
Subject: [PATCH] gnu: daemontools: Use GEXPs.

* gnu/packages/admin.scm (daemontools): Use GEXPs.

Change-Id: Ie30ccd9b3b1d003a565bf75d30e80496d5785be1
---
 gnu/packages/admin.scm | 46 +++++++++++++++++++-----------------------
 1 file changed, 21 insertions(+), 25 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index c311a5e242..d69e8c03c2 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -747,31 +747,27 @@ measurement data like CPU, memory, disk and network performance numbers.")
                 "07scvw88faxkscxi91031pjkpccql6wspk4yrlnsbrrb5c0kamd5"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f ;; No tests as far as I can tell.
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'chdir
-           (lambda _
-             (chdir ,(string-append "daemontools-" version))
-             #t))
-         (delete 'configure)
-         (add-before 'build 'patch
-           (lambda _
-             (substitute* "src/error.h"
-               (("extern int errno;")
-                "#include <errno.h>"))
-             #t))
-         (replace 'build
-           (lambda _
-             (invoke "package/compile")))
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin")))
-               (for-each (lambda (file)
-                           (install-file file bin))
-                         (find-files "command")))
-             #t)))))
+     (list #:tests? #f ;; No tests as far as I can tell.
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'chdir
+                 (lambda _
+                   (chdir #$(string-append "daemontools-" version))))
+               (delete 'configure)
+               (add-before 'build 'patch
+                 (lambda _
+                   (substitute* "src/error.h"
+                     (("extern int errno;")
+                      "#include <errno.h>"))))
+               (replace 'build
+                 (lambda _
+                   (invoke "package/compile")))
+               (replace 'install
+                 (lambda _
+                   (let ((bin (string-append #$output "/bin")))
+                     (for-each (lambda (file)
+                                 (install-file file bin))
+                               (find-files "command"))))))))
     (synopsis "Tools for managing UNIX style services")
     (description
      "@code{daemontools} is a collection of tools for managing UNIX