aboutsummaryrefslogtreecommitdiff
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
parentae39b7a9a947f09a66f42c9c67ee6dee001ec0c1 (diff)
downloadguix-23ad7e92b1464e6e951603e79d3edbaffd5a5fa0.tar
guix-23ad7e92b1464e6e951603e79d3edbaffd5a5fa0.tar.gz
system: image: Add qcow2 image type.
* gnu/system/image.scm (qcow2-image-type): New variable.
-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)