summary refs log tree commit diff
path: root/gnu/system
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-10-02 14:54:26 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-10-02 14:54:26 +0200
commit23ad7e92b1464e6e951603e79d3edbaffd5a5fa0 (patch)
tree3ddb542de3b1d1dc82961b29e4743daf66a8a168 /gnu/system
parentae39b7a9a947f09a66f42c9c67ee6dee001ec0c1 (diff)
downloadguix-23ad7e92b1464e6e951603e79d3edbaffd5a5fa0.tar.gz
system: image: Add qcow2 image type.
* gnu/system/image.scm (qcow2-image-type): New variable.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/image.scm11
1 files changed, 11 insertions, 0 deletions
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 @@
 
             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)