GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-07-11 21:29:59 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

cleaning qemu-with-rbd & qemu-minimal-with-rbd

Browse source
This commit is contained in:
Jean-François GUILLAUME 2025-06-20 10:28:21 +02:00
parent dbaebfc5e0
commit 717dde2b11
1 changed files with 2 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

46
glicid/packages/virtualization.scm
View file

@ -14,28 +14,6 @@
(define-public qemu-with-rbd
(package
(inherit qemu-latest)
(version "8.2.1")
(name "qemu-with-rbd")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.qemu.org/qemu-"version ".tar.xz"))
(sha256 (base32 "1gi9fyc6sk632bnqqp1jy1qciqxbamsva8jzghc9spqpb08paql5"))
(patches (search-patches "qemu-fix-agent-paths.patch"))
(modules '((guix build utils)))
(snippet
'(begin
(with-directory-excursion "pc-bios"
(for-each delete-file (find-files "." "^(bios|vgabios).*\\.bin$"))
(delete-file "openbios-ppc")
(delete-file "opensbi-riscv64-generic-fw_dynamic.bin")
(for-each delete-file (find-files "." "^(efi|pxe)-.*\\.rom$")))
(for-each delete-file-recursively
'("subprojects/dtc"
"roms/ipxe"
"roms/openbios"
"roms/opensbi"
"roms/seabios"))))))
(arguments
(substitute-keyword-arguments (package-arguments qemu)
((#:tests? _ #f)
@ -46,28 +24,6 @@
(define-public qemu-minimal-with-rbd
(package
(inherit qemu-minimal-latest)
(version "8.2.1")
(name "qemu-minimal-with-rbd")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.qemu.org/qemu-"version ".tar.xz"))
(sha256 (base32 "1gi9fyc6sk632bnqqp1jy1qciqxbamsva8jzghc9spqpb08paql5"))
(patches (search-patches "qemu-fix-agent-paths.patch"))
(modules '((guix build utils)))
(snippet
'(begin
(with-directory-excursion "pc-bios"
(for-each delete-file (find-files "." "^(bios|vgabios).*\\.bin$"))
(delete-file "openbios-ppc")
(delete-file "opensbi-riscv64-generic-fw_dynamic.bin")
(for-each delete-file (find-files "." "^(efi|pxe)-.*\\.rom$")))
(for-each delete-file-recursively
'("subprojects/dtc"
"roms/ipxe"
"roms/openbios"
"roms/opensbi"
"roms/seabios"))))))
(arguments
(substitute-keyword-arguments `(#:tests? #f
,@(package-arguments qemu-minimal))
@ -85,3 +41,5 @@
(uri (string-append "https://libvirt.org/sources/libvirt-" version ".tar.xz"))
(sha256 (base32 "0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0"))
(patches (search-patches "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))
qemu-with-rbd