1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-14 02:50:45 +02:00

gnu: daemontools: Use GEXPs.

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

Change-Id: Ie30ccd9b3b1d003a565bf75d30e80496d5785be1
This commit is contained in:
Artyom V. Poptsov 2025-03-22 15:10:42 +03:00
parent de0925b3c9
commit 02cbc5f26b
No known key found for this signature in database
GPG key ID: 935EBE0736DC857E

View file

@ -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