me
/
guix
Archived
1
0
Fork 0
Code

system: image: Fix disk-image name. 

This is a follow-up of 5980ec8ada.

* gnu/system/image.scm (system-disk-image): When using the image name, convert
it to string first.
master
Mathieu Othacehe 2020-06-26 10:05:58 +02:00
parent 5980ec8ada
commit f27bec107e
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/system/image.scm
View File

@ -301,7 +301,10 @@ image ~a {
}~%" #$genimage-name #$image-type (list #$@partitions-config)))))))) }~%" #$genimage-name #$image-type (list #$@partitions-config))))))))
(computed-file "genimage.cfg" builder))) (computed-file "genimage.cfg" builder)))
(let* ((name (or (image-name image) name)) (let* ((image-name (image-name image))
(name (if image-name
(symbol->string image-name)
name))
(substitutable? (image-substitutable? image)) (substitutable? (image-substitutable? image))
(builder (builder
(with-imported-modules* (with-imported-modules*