diff --git a/gnu/system/image.scm b/gnu/system/image.scm index c81054f847..d8d5882a54 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -68,6 +68,7 @@ (define-module (gnu system image) image-with-os raw-image-type + qcow2-image-type iso-image-type uncompressed-iso-image-type @@ -139,6 +140,16 @@ (define raw-image-type (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)