From 705830f74234f48d6c775d4c90528df1ead413e6 Mon Sep 17 00:00:00 2001
From: JEAN-FRANCOIS GUILLAUME <mrbear@yam-it.net>
Date: Sat, 17 Feb 2024 13:16:31 +0100
Subject: [PATCH] updating qemu and libvirt

---
 glicid/packages/virtualization.scm | 91 ++++++++++++++++--------------
 1 file changed, 50 insertions(+), 41 deletions(-)

diff --git a/glicid/packages/virtualization.scm b/glicid/packages/virtualization.scm
index 47050be..f3469fc 100644
--- a/glicid/packages/virtualization.scm
+++ b/glicid/packages/virtualization.scm
@@ -1,51 +1,60 @@
 (define-module (glicid packages virtualization)
-  #:use-module (guix packages)
-  #:use-module (guix gexp)
-  #:use-module (gnu packages)
-  #:use-module (guix utils)
-  #:use-module (gnu packages virtualization)
-  #:use-module (gnu packages storage)
-  #:use-module (guix download)
-  #:use-module (glicid utils))
+               #:use-module (guix packages)
+               #:use-module (guix gexp)
+               #:use-module (gnu packages)
+               #:use-module (guix utils)
+               #:use-module (gnu packages virtualization)
+               #:use-module (gnu packages storage)
+               #:use-module (guix download)
+               #:use-module (glicid utils))
 
 (define-public qemu-latest
-  qemu)
+               qemu)
 (define-public qemu-minimal-latest
-  qemu-minimal)
+               qemu-minimal)
 
 (define-public qemu-with-rbd
-  (package
-    (inherit qemu-latest)
-    (name "qemu-with-rbd")
-    (arguments
-     (substitute-keyword-arguments (package-arguments qemu)
-       ((#:tests? _ #f)
-        #f)))
-    (inputs `(("ceph:lib" ,ceph "lib")
-              ,@(package-inputs qemu)))))
+               (package
+                 (inherit qemu-latest)
+                 (version "8.2.1")
+                 (name "qemu-with-rbd")
+                 (arguments
+                   (substitute-keyword-arguments (package-arguments qemu)
+                                                 ((#:tests? _ #f)
+                                                  #f)))
+                 (inputs `(("ceph:lib" ,ceph "lib")
+                           ,@(package-inputs qemu)))))
 
 (define-public qemu-minimal-with-rbd
-  (package
-    (inherit qemu-minimal-latest)
-    (name "qemu-minimal-with-rbd")
-    (arguments
-     (substitute-keyword-arguments `(#:tests? #f
-                                     ,@(package-arguments qemu-minimal))
-       ))
-    (inputs `(("ceph:lib" ,ceph "lib")
-              ,@(package-inputs qemu-minimal)))))
+               (package
+                 (inherit qemu-minimal-latest)
+                 (version "8.2.1")
+                 (name "qemu-minimal-with-rbd")
+                 (arguments
+                   (substitute-keyword-arguments `(#:tests? #f
+                                                   ,@(package-arguments qemu-minimal))
+                                                 ))
+                 (inputs `(("ceph:lib" ,ceph "lib")
+                           ,@(package-inputs qemu-minimal)))))
 
 (define-public libvirt-8.5
-  (package
-    (inherit libvirt)
-    (name "libvirt")
-    (version "8.5.0")
-    (source (origin
-              (method url-fetch)
-              (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"))))))
+               (package
+                 (inherit libvirt)
+                 (name "libvirt")
+                 (version "8.5.0")
+                 (source (origin
+                           (method url-fetch)
+                           (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"))))))
+
+(define-public libvirt-10.0
+               (package
+                 (inherit libvirt)
+                 (name "libvirt")
+                 (version "10.0.0")
+                 ))