branch master updated: system: image: Add qcow2 image type.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 23ad7e9  system: image: Add qcow2 image type.
23ad7e9 is described below

commit 23ad7e92b1464e6e951603e79d3edbaffd5a5fa0
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Oct 2 14:54:26 2020 +0200

    system: image: Add qcow2 image type.
    
    * gnu/system/image.scm (qcow2-image-type): New variable.
---
 gnu/system/image.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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