diff --git a/glicid/packages/virtualization.scm b/glicid/packages/virtualization.scm index 2aa113f..4e4c083 100644 --- a/glicid/packages/virtualization.scm +++ b/glicid/packages/virtualization.scm @@ -11,28 +11,50 @@ (define-public qemu-7.0-upstream - (package + (package (inherit qemu) (name "qemu-upstream") (version "7.0.0") - - (source - (origin - (method url-fetch) - (uri (string-append "https://download.qemu.org/qemu-" - version ".tar.xz")) - (sha256 - (base32 - "0fgq8szlc75ymgpxpkj47njqqiw65nxsl2wbg4188whzjp3pbczn")) - (patches (search-patches "qemu-build-info-manual.patch" - "qemu-fix-agent-paths.patch")) - (modules '((guix build utils))) - (snippet + (source (origin + (method url-fetch) + (uri (string-append "https://download.qemu.org/qemu-" version ".tar.xz")) + (sha256 (base32 "0fgq8szlc75ymgpxpkj47njqqiw65nxsl2wbg4188whzjp3pbczn")) + (patches (search-patches + "qemu-build-info-manual.patch" + "qemu-fix-agent-paths.patch" + )) + (modules '((guix build utils))) + (snippet '(begin ;; Delete the bundled meson copy. - (delete-file-recursively "meson"))))) - + (delete-file-recursively "meson") + ) + ) + )) + ) +) +(define-public qemu-minimal-7.0-upstream + (package + (inherit qemu-minimal) + (name "qemu-minimal-upstream") + (version "7.0.0") + (source (origin + (method url-fetch) + (uri (string-append "https://download.qemu.org/qemu-" version ".tar.xz")) + (sha256 (base32 "0fgq8szlc75ymgpxpkj47njqqiw65nxsl2wbg4188whzjp3pbczn")) + (patches (search-patches + "qemu-build-info-manual.patch" + "qemu-fix-agent-paths.patch" + )) + (modules '((guix build utils))) + (snippet + '(begin + ;; Delete the bundled meson copy. + (delete-file-recursively "meson") + ) + ) + )) ) ) @@ -40,6 +62,9 @@ (define qemu-latest (latest-version local-qemu qemu)) +(define local-qemu-minimal qemu-minimal-7.0-upstream) + +(define qemu-minimal-latest (latest-version local-qemu-minimal qemu-minimal)) (define-public qemu-with-rbd (package @@ -60,7 +85,7 @@ (define-public qemu-minimal-with-rbd (package - (inherit qemu-minimal) + (inherit qemu-minimal-latest) (name "qemu-minimal-with-rbd") (arguments (substitute-keyword-arguments `(