me
/
guix
Archived
1
0
Fork 0
Code

gnu: cloud-utils: Fix wrapping. 

* gnu/packages/admin.scm (cloud-utils)[arguments]:
Search for readlink & sfdisk in inputs.
[inputs]: Add coreutils.
master
Tobias Geerinckx-Rice 2022-05-29 02:00:00 +02:00
parent 0e5e26dc71
commit d6d06ee237
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/admin.scm
View File

@ -419,7 +419,11 @@ inspired by @command{vi}.")
"0xxdi55lzw7j91zfajw7jhd2ilsqj2dy04i9brlk8j3pvb5ma8hk")))) "0xxdi55lzw7j91zfajw7jhd2ilsqj2dy04i9brlk8j3pvb5ma8hk"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:make-flags '(#:modules
((guix build gnu-build-system)
(guix build utils)
(srfi srfi-26))
#:make-flags
(let ((out (assoc-ref %outputs "out"))) (let ((out (assoc-ref %outputs "out")))
(list (string-append "BINDIR=" out "/bin") (list (string-append "BINDIR=" out "/bin")
(string-append "MANDIR=" out "/share/man/man1") (string-append "MANDIR=" out "/share/man/man1")
@ -433,10 +437,15 @@ inspired by @command{vi}.")
(let ((growpart (string-append (assoc-ref outputs "out") (let ((growpart (string-append (assoc-ref outputs "out")
"/bin/growpart"))) "/bin/growpart")))
(wrap-program growpart (wrap-program growpart
`("PATH" ":" prefix (,(dirname (which "sfdisk")) `("PATH" ":" prefix
,(dirname (which "readlink"))))))))))) ,(map dirname
(map (cut search-input-file inputs <>)
(list "bin/readlink"
"sbin/sfdisk")))))))))))
(inputs (inputs
(list python util-linux)) ; contains sfdisk for growpart (list coreutils ; for readlink
python
util-linux)) ; sfdisk for growpart
(home-page "https://launchpad.net/cloud-utils") (home-page "https://launchpad.net/cloud-utils")
(synopsis "Set of utilities for cloud computing environments") (synopsis "Set of utilities for cloud computing environments")
(description (description