diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-26 09:04:43 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-26 09:38:16 +0200 |
| commit | 5980ec8ada5ede54bde6558c7ab8bf492bc70f85 (patch) | |
| tree | a4f08e4a3713e072ec80376f27ec2214886559a9 | |
| parent | e6db8912fdec8b33e39c03b5e3b3268df12648ab (diff) | |
| download | guix-5980ec8ada5ede54bde6558c7ab8bf492bc70f85.tar guix-5980ec8ada5ede54bde6558c7ab8bf492bc70f85.tar.gz | |
system: image: Use the image name as the disk-image derivation name.
* gnu/system/image.scm (system-disk-image): Use the image name as disk-image
derivation name, if defined. Otherwise use the generic "disk-image" name.
| -rw-r--r-- | gnu/system/image.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index a4cc2d1ef9..7efbc9fac0 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -301,7 +301,8 @@ image ~a { }~%" #$genimage-name #$image-type (list #$@partitions-config)))))))) (computed-file "genimage.cfg" builder))) - (let* ((substitutable? (image-substitutable? image)) + (let* ((name (or (image-name image) name)) + (substitutable? (image-substitutable? image)) (builder (with-imported-modules* (let ((inputs '#+(list genimage coreutils findutils)) |