mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-15 11:30:44 +02:00
Code Releases Activity

gnu: daemontools: Use GEXPs.

Browse source 
* 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
1 changed files with 21 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/admin.scm
View file

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