3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

system: image: Add qcow2 image type.

* gnu/system/image.scm (qcow2-image-type): New variable.
This commit is contained in:
Mathieu Othacehe 2020-10-02 14:54:26 +02:00
parent ae39b7a9a9
commit 23ad7e92b1
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -68,6 +68,7 @@
image-with-os
raw-image-type
qcow2-image-type
iso-image-type
uncompressed-iso-image-type
@ -139,6 +140,16 @@ set to the given OS."
(name 'raw)
(constructor (cut image-with-os efi-disk-image <>))))
(define qcow2-image-type
(image-type
(name 'qcow2)
(constructor (cut image-with-os
(image
(inherit efi-disk-image)
(name 'image.qcow2)
(format 'compressed-qcow2))
<>))))
(define iso-image-type
(image-type
(name 'iso9660)