system: image: Add qcow2 image type.

[jackhill/guix/guix.git] / gnu / system / image.scm

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index c81054f..d8d5882 100644 (file)
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -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)