Revert "updating qemu and libvirt"

This reverts merge request !371
This commit is contained in:
Jean-François GUILLAUME 2024-02-17 12:54:25 +00:00
parent 8465324f39
commit eeccacd56e

View file

@ -1,60 +1,51 @@
(define-module (glicid packages virtualization) (define-module (glicid packages virtualization)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
#:use-module (gnu packages storage) #:use-module (gnu packages storage)
#:use-module (guix download) #:use-module (guix download)
#:use-module (glicid utils)) #:use-module (glicid utils))
(define-public qemu-latest (define-public qemu-latest
qemu) qemu)
(define-public qemu-minimal-latest (define-public qemu-minimal-latest
qemu-minimal) qemu-minimal)
(define-public qemu-with-rbd (define-public qemu-with-rbd
(package (package
(inherit qemu-latest) (inherit qemu-latest)
(version "8.2.1") (name "qemu-with-rbd")
(name "qemu-with-rbd") (arguments
(arguments (substitute-keyword-arguments (package-arguments qemu)
(substitute-keyword-arguments (package-arguments qemu) ((#:tests? _ #f)
((#:tests? _ #f) #f)))
#f))) (inputs `(("ceph:lib" ,ceph "lib")
(inputs `(("ceph:lib" ,ceph "lib") ,@(package-inputs qemu)))))
,@(package-inputs qemu)))))
(define-public qemu-minimal-with-rbd (define-public qemu-minimal-with-rbd
(package (package
(inherit qemu-minimal-latest) (inherit qemu-minimal-latest)
(version "8.2.1") (name "qemu-minimal-with-rbd")
(name "qemu-minimal-with-rbd") (arguments
(arguments (substitute-keyword-arguments `(#:tests? #f
(substitute-keyword-arguments `(#:tests? #f ,@(package-arguments qemu-minimal))
,@(package-arguments qemu-minimal)) ))
)) (inputs `(("ceph:lib" ,ceph "lib")
(inputs `(("ceph:lib" ,ceph "lib") ,@(package-inputs qemu-minimal)))))
,@(package-inputs qemu-minimal)))))
(define-public libvirt-8.5 (define-public libvirt-8.5
(package (package
(inherit libvirt) (inherit libvirt)
(name "libvirt") (name "libvirt")
(version "8.5.0") (version "8.5.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://libvirt.org/sources/libvirt-" (uri (string-append "https://libvirt.org/sources/libvirt-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0")) "0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0"))
(patches (search-patches (patches (search-patches
"glicid/packages/patches/glicid-libvirt-add-install-prefix.patch")))))) "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))
(define-public libvirt-10.0
(package
(inherit libvirt)
(name "libvirt")
(version "10.0.0")
))