system: image: Add qcow2 image type.
* gnu/system/image.scm (qcow2-image-type): New variable.
This commit is contained in:
parent
ae39b7a9a9
commit
23ad7e92b1
1 changed files with 11 additions and 0 deletions
|
@ -68,6 +68,7 @@
|
||||||
|
|
||||||
image-with-os
|
image-with-os
|
||||||
raw-image-type
|
raw-image-type
|
||||||
|
qcow2-image-type
|
||||||
iso-image-type
|
iso-image-type
|
||||||
uncompressed-iso-image-type
|
uncompressed-iso-image-type
|
||||||
|
|
||||||
|
@ -139,6 +140,16 @@ set to the given OS."
|
||||||
(name 'raw)
|
(name 'raw)
|
||||||
(constructor (cut image-with-os efi-disk-image <>))))
|
(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
|
(define iso-image-type
|
||||||
(image-type
|
(image-type
|
||||||
(name 'iso9660)
|
(name 'iso9660)
|
||||||
|
|
Reference in a new issue