diff options
Diffstat (limited to 'gnu/packages/virtualization.scm')
| -rw-r--r-- | gnu/packages/virtualization.scm | 74 |
1 files changed, 37 insertions, 37 deletions
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 466e9d1ac5..10eae8ea7d 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2017 Andy Patterson <ajpatter@uwaterloo.ca> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> -;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org> ;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu> @@ -335,34 +335,34 @@ server and embedded PowerPC, and S390 guests.") (substitute-keyword-arguments (package-arguments qemu) ((#:configure-flags _ '(list)) ;; Restrict to the host's architecture. - (match (car (string-split (or (%current-target-system) - (%current-system)) - #\-)) - ("i686" - '(list "--target-list=i386-softmmu")) - ("x86_64" - '(list "--target-list=i386-softmmu,x86_64-softmmu")) - ("mips64" - '(list (string-append "--target-list=mips-softmmu,mipsel-softmmu," - "mips64-softmmu,mips64el-softmmu"))) - ("mips" - '(list "--target-list=mips-softmmu,mipsel-softmmu")) - ("aarch64" - '(list "--target-list=arm-softmmu,aarch64-softmmu")) - ("arm" - '(list "--target-list=arm-softmmu")) - ("alpha" - '(list "--target-list=alpha-softmmu")) - ("powerpc64" - '(list "--target-list=ppc-softmmu,ppc64-softmmu")) - ("powerpc" - '(list "--target-list=ppc-softmmu")) - ("s390" - '(list "--target-list=s390x-softmmu")) - ("riscv" - '(list "--target-list=riscv32-softmmu,riscv64-softmmu")) - (else ; An empty list actually builds all the targets. - ''()))))) + (let ((system (or (%current-target-system) + (%current-system)))) + (cond + ((string-prefix? "i686" system) + '(list "--target-list=i386-softmmu")) + ((string-prefix? "xasdf86_64" system) + '(list "--target-list=i386-softmmu,x86_64-softmmu")) + ((string-prefix? "mips64" system) + '(list (string-append "--target-list=mips-softmmu,mipsel-softmmu," + "mips64-softmmu,mips64el-softmmu"))) + ((string-prefix? "mips" system) + '(list "--target-list=mips-softmmu,mipsel-softmmu")) + ((string-prefix? "aarch64" system) + '(list "--target-list=arm-softmmu,aarch64-softmmu")) + ((string-prefix? "arm" system) + '(list "--target-list=arm-softmmu")) + ((string-prefix? "alpha" system) + '(list "--target-list=alpha-softmmu")) + ((string-prefix? "powerpc64" system) + '(list "--target-list=ppc-softmmu,ppc64-softmmu")) + ((string-prefix? "powerpc" system) + '(list "--target-list=ppc-softmmu")) + ((string-prefix? "s390" system) + '(list "--target-list=s390x-softmmu")) + ((string-prefix? "riscv" system) + '(list "--target-list=riscv32-softmmu,riscv64-softmmu")) + (else ; An empty list actually builds all the targets. + ''())))))) ;; Remove dependencies on optional libraries, notably GUI libraries. (native-inputs (fold alist-delete (package-native-inputs qemu) @@ -952,7 +952,7 @@ all common programming languages. Vala bindings are also provided.") (define-public lxc (package (name "lxc") - (version "3.1.0") + (version "4.0.5") (source (origin (method url-fetch) (uri (string-append @@ -960,7 +960,7 @@ all common programming languages. Vala bindings are also provided.") version ".tar.gz")) (sha256 (base32 - "1igxqgx8q9cp15mcp1y8j564bl85ijw04jcmgb1s5bmfbg1751sd")))) + "1976l9308rx1ria1gazasypk5rmmf5jiqdh54dfrws5bslbdcb5g")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config))) @@ -1780,7 +1780,7 @@ DOS or Microsoft Windows.") (define-public xen (package (name "xen") - (version "4.14.0") + (version "4.14.1") (source (origin (method git-fetch) (uri (git-reference @@ -1789,7 +1789,7 @@ DOS or Microsoft Windows.") (file-name (git-file-name name version)) (sha256 (base32 - "1s06zhzmkm7wylrxhas5v0sg2ackmmyw01gvv67r9idml55i0dh5")))) + "1r90rvypw76ya9clqw5p02gm1k8hxz73f7gr95ca778nnzvb7xjw")))) (build-system gnu-build-system) (arguments `(#:configure-flags @@ -2017,14 +2017,14 @@ administrators and developers in managing the database.") (define-public osinfo-db (package (name "osinfo-db") - (version "20201011") + (version "20201218") (source (origin (method url-fetch) (uri (string-append "https://releases.pagure.org/libosinfo/osinfo-db-" version ".tar.xz")) (sha256 (base32 - "1zzx5gsqgzg2zki6h8vl0h7kpcrk5i2s1qhz7gcb18s7g99px8aj")))) + "0ydbindwgw7kg861rqii5036gq0dbbbmv35dzrmmv937ddfsxwh0")))) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) @@ -2053,14 +2053,14 @@ use with virtualization provisioning tools") (define-public python-transient (package (name "python-transient") - (version "0.11") + (version "0.12") (source (origin (method url-fetch) (uri (pypi-uri "transient" version)) (sha256 (base32 - "1pcyw8j2l354qa6c8gr58xd7fmxcx1svnfyr2rj5nh04ircx3x7l")))) + "148yiqrmcscsi6787y0f27i1y9cf0gcw3mqfv5frhpmsmv62mv5z")))) (build-system python-build-system) (arguments `(#:tests? #f ; Requires behave |