gnu: virtualization: Add 'bash' input for 'wrap-program'.

It is required for cross-compilation.

* gnu/packages/virtualization.scm
(ganeti)[inputs]: Add 'bash-minimal'.
(virt-manager)[inputs]: Likewise.
(criu)[inputs]: Likewise.  Remove labels.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Change-Id: Ib5ae01ea43ac99085a172e0e015d316c99b66897
This commit is contained in:
Maxime Devos 2021-07-02 12:07:07 +02:00 committed by Ludovic Courtès
parent 240d406b43
commit 7351aa3b3e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1030,7 +1030,8 @@ (define* (wrap? file #:rest _)
("shelltestrunner" ,shelltestrunner)
("tzdata" ,tzdata-for-tests)))
(inputs
(list iputils ;for 'arping'
(list bash-minimal
iputils ;for 'arping'
curl
fping
iproute
@ -1758,7 +1759,8 @@ (define-public virt-manager
(add-after 'wrap 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
(inputs
(list dconf
(list bash-minimal
dconf
gtk+
gtk-vnc
gtksourceview-4
@ -1989,8 +1991,7 @@ (define-public criu
(("ARMV.*:=.*") "ARMV := 7\n"))
;; Hard-code the correct PLUGINDIR above.
(substitute* "criu/include/plugin.h"
(("/var") (string-append (assoc-ref outputs "out"))))
))
(("/var") (string-append (assoc-ref outputs "out"))))))
;; TODO: use
;; (@@ (guix build python-build-system) ensure-no-mtimes-pre-1980)
;; when it no longer throws due to trying to call UTIME on symlinks.
@ -2030,15 +2031,16 @@ (define-public criu
(let ((out (assoc-ref outputs "out")))
(for-each delete-file (find-files out "\\.a$"))))))))
(inputs
`(("protobuf" ,protobuf)
("python-protobuf" ,python-protobuf)
("iproute" ,iproute)
("libaio" ,libaio)
("libcap" ,libcap)
("libnet" ,libnet)
("libnl" ,libnl)
("libbsd" ,libbsd)
("nftables" ,nftables)))
(list bash-minimal
protobuf
python-protobuf
iproute
libaio
libcap
libnet
libnl
libbsd
nftables))
(native-inputs
(list pkg-config
perl