GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-30 06:08:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

rewrite virtualization.scm

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-12-13 15:31:30 +01:00
parent 16ae2d732c
commit 92b9df92b0
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 40 additions and 89 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
glicid/packages/virtualization.scm
View file

@ -6,81 +6,36 @@
#:use-module (gnu packages virtualization)
#:use-module (gnu packages storage)
#:use-module (guix download)
#:use-module (glicid utils)
; #:use-module (glicid packages storage)
)
#:use-module (glicid utils))
;(define local-qemu qemu-7.0-upstream)
;(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))
;; current guix version is latest.
(define-public qemu-latest qemu)
(define-public qemu-minimal-latest qemu-minimal)
(define-public qemu-with-rbd
(package
(inherit qemu-latest)
(name "qemu-with-rbd")
(arguments
(substitute-keyword-arguments (package-arguments qemu)
(substitute-keyword-arguments
(package-arguments qemu)
((#:tests? _ #f)
;; FIXME: To run the test suite, fix all the instances where scripts
;; generates "#! /bin/sh" shebangs.
#f)
)
)
#f)))
(inputs `(
("ceph:lib", ceph "lib")
,@(package-inputs qemu)
))
)
)
;(define-public qemu-with-rbd
; (package
; (inherit qemu-latest)
; (name "qemu-with-rbd")
; (arguments
; (substitute-keyword-arguments `(
; #:tests? #f
; ,@(package-arguments qemu)
; ))
; )
; (inputs `(
; ("ceph:lib", ceph "lib")
; ,@(package-inputs qemu)
; ))
; )
;)
,@(package-inputs qemu)))))
(define-public qemu-minimal-with-rbd
(package
(inherit qemu-minimal-latest)
(name "qemu-minimal-with-rbd")
(arguments
(substitute-keyword-arguments `(
(substitute-keyword-arguments
`(
#:tests? #f
,@(package-arguments qemu-minimal)
))
)
,@(package-arguments qemu-minimal))))
(inputs `(
("ceph:lib", ceph "lib" )
,@(package-inputs qemu-minimal)
))
)
)
,@(package-inputs qemu-minimal)))))
(define-public libvirt-8.5
(package
@ -92,8 +47,4 @@
(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"))
)
)
)
)
(patches (search-patches "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))