aboutsummaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-06-26 09:04:43 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-06-26 09:38:16 +0200
commit5980ec8ada5ede54bde6558c7ab8bf492bc70f85 (patch)
treea4f08e4a3713e072ec80376f27ec2214886559a9 /gnu/system
parente6db8912fdec8b33e39c03b5e3b3268df12648ab (diff)
downloadguix-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.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/image.scm3
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))