From 5980ec8ada5ede54bde6558c7ab8bf492bc70f85 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Fri, 26 Jun 2020 09:04:43 +0200
Subject: 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.
---
 gnu/system/image.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gnu/system')

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 @@ (define (partition->config partition)
 }~%" #$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))
-- 
cgit v1.2.3