me/guix
Archived
1
0
Fork 0
Code Activity

gnu: di: Use G-expressions.

Browse source 
* gnu/packages/admin.scm (di)[arguments]: Rewrite as G-expressions.
Rename 'setup-environment phase to 'override-environment.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-02 02:00:03 +02:00
parent c39abdedbb
commit adf097908c
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/admin.scm
View file

@ -3553,15 +3553,17 @@ a new command using the matched rule, and runs it.")
(base32 "07vsnn1gxm3r7dchbrq63iazd64gza2ac7b2m1039708rf5flxdp")))) (base32 "07vsnn1gxm3r7dchbrq63iazd64gza2ac7b2m1039708rf5flxdp"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; obscure test failures (list
#:phases #:tests? #f ; obscure test failures
(modify-phases %standard-phases #:phases
(delete 'configure) ; no configure script #~(modify-phases %standard-phases
(add-before 'build 'setup-environment (delete 'configure) ; no configure script
(lambda* (#:key outputs #:allow-other-keys) (add-before 'build 'override-environment
(setenv "CC" ,(cc-for-target)) (lambda _
(setenv "prefix" (assoc-ref outputs "out"))))) (setenv "CC" #$(cc-for-target))
#:make-flags (list "--environment-overrides"))) (setenv "prefix" #$output))))
#:make-flags
#~(list "--environment-overrides")))
(home-page "https://gentoo.com/di/") (home-page "https://gentoo.com/di/")
(synopsis "Advanced df like disk information utility") (synopsis "Advanced df like disk information utility")
(description (description