diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-02 14:54:26 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-02 14:54:26 +0200 |
| commit | 23ad7e92b1464e6e951603e79d3edbaffd5a5fa0 (patch) | |
| tree | 3ddb542de3b1d1dc82961b29e4743daf66a8a168 /gnu/system | |
| parent | ae39b7a9a947f09a66f42c9c67ee6dee001ec0c1 (diff) | |
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.scm | 11 |
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) |