system: images: Add image names.

* gnu/system/images/a20-olinuxino-lime2.scm
(a20-olinuxino-lime2-image-type):
* gnu/system/images/novena.scm (novena-image-type),
* gnu/system/images/orangepi-r1-plus-lts-rk3328.scm
(orangepi-r1-plus-lts-rk3328-image-type),
* gnu/system/images/pine64.scm (pine64-image-type),
* gnu/system/images/pinebook-pro.scm (pinebook-pro-image-type),
* gnu/system/images/rock-4c-plus.scm (rock-4c-plus-image-type),
* gnu/system/images/rock64.scm (rock64-image-type):  Add name field to
constructor.
* gnu/system/images/unmatched.scm (unmatched-disk-image),
* gnu/system/images/visionfive2.scm (visionfive2-disk-image): Add name
field.

Change-Id: Id64082f912e6346c1f3b47619ce31f129612ff34
Signed-off-by: Efraim Flashner <efraim@flashner.co.il>

9 files changed, 9 insertions, 0 deletions

diff --git a/gnu/system/images/a20-olinuxino-lime2.scm b/gnu/system/images/a20-olinuxino-lime2.scm
index ecab5166500..32e41f893f1 100644
--- a/gnu/system/images/a20-olinuxino-lime2.scm
+++ b/gnu/system/images/a20-olinuxino-lime2.scm
@@ -55,6 +55,7 @@
    (constructor (lambda (os)
                   (image
                    (inherit (raw-with-offset-disk-image (* 8192 512)))
+                   (name 'a20-olinuxino-lime2-disk-image)
                    (operating-system os)
                    (platform armv7-linux))))))
 
diff --git a/gnu/system/images/novena.scm b/gnu/system/images/novena.scm
index 810e2bed5f5..e71f0d8e66f 100644
--- a/gnu/system/images/novena.scm
+++ b/gnu/system/images/novena.scm
@@ -56,6 +56,7 @@
    (constructor (lambda (os)
                   (image
                    (inherit (raw-with-offset-disk-image))
+                   (name 'novena-disk-image)
                    (operating-system os)
                    (platform armv7-linux))))))
 
diff --git a/gnu/system/images/orangepi-r1-plus-lts-rk3328.scm b/gnu/system/images/orangepi-r1-plus-lts-rk3328.scm
index 0229f75f1db..5b1c7f3dfcc 100644
--- a/gnu/system/images/orangepi-r1-plus-lts-rk3328.scm
+++ b/gnu/system/images/orangepi-r1-plus-lts-rk3328.scm
@@ -61,6 +61,7 @@
               (constructor (lambda (os)
                              (image (inherit (raw-with-offset-disk-image (expt
                                                                           2 24)))
+                                    (name 'orangepi-r1-plus-lts-rk3328-disk-image)
                                     (operating-system
                                       os)
                                     (platform aarch64-linux))))))
diff --git a/gnu/system/images/pine64.scm b/gnu/system/images/pine64.scm
index bd7a39ee75d..cccbb812650 100644
--- a/gnu/system/images/pine64.scm
+++ b/gnu/system/images/pine64.scm
@@ -67,6 +67,7 @@
    (constructor (lambda (os)
                   (image
                    (inherit (raw-with-offset-disk-image))
+                   (name 'pine64-disk-image)
                    (operating-system os)
                    (platform aarch64-linux))))))
 
diff --git a/gnu/system/images/pinebook-pro.scm b/gnu/system/images/pinebook-pro.scm
index 2282e13719c..f108c7ffe4e 100644
--- a/gnu/system/images/pinebook-pro.scm
+++ b/gnu/system/images/pinebook-pro.scm
@@ -62,6 +62,7 @@
                   (image
                    (inherit
                     (raw-with-offset-disk-image (* 16 (expt 2 20)))) ;16MiB
+                   (name 'pinebook-pro-disk-image)
                    (operating-system os)
                    (platform aarch64-linux))))))
 
diff --git a/gnu/system/images/rock-4c-plus.scm b/gnu/system/images/rock-4c-plus.scm
index d669e3a163b..293a117d1e9 100644
--- a/gnu/system/images/rock-4c-plus.scm
+++ b/gnu/system/images/rock-4c-plus.scm
@@ -68,6 +68,7 @@
    (constructor (lambda (os)
                   (image
                    (inherit (raw-with-offset-disk-image (expt 2 24)))
+                   (name 'rock-4c-plus-disk-image)
                    (operating-system os)
                    (platform aarch64-linux))))))
 
diff --git a/gnu/system/images/rock64.scm b/gnu/system/images/rock64.scm
index 1fb6b7ddbc4..aa8f1c40e50 100644
--- a/gnu/system/images/rock64.scm
+++ b/gnu/system/images/rock64.scm
@@ -57,6 +57,7 @@
    (constructor (lambda (os)
                   (image
                    (inherit (raw-with-offset-disk-image (expt 2 24)))
+                   (name 'rock64-disk-image)
                    (operating-system os)
                    (platform aarch64-linux))))))
 
diff --git a/gnu/system/images/unmatched.scm b/gnu/system/images/unmatched.scm
index b4e2d7b18bb..b5d13abd56d 100644
--- a/gnu/system/images/unmatched.scm
+++ b/gnu/system/images/unmatched.scm
@@ -60,6 +60,7 @@
 
 (define unmatched-disk-image
   (image-without-os
+   (name 'unmatched-disk-image)
    (format 'disk-image)
    (partition-table-type 'gpt)
    ;; https://source.denx.de/u-boot/u-boot/-/blob/master/doc/board/sifive/unmatched.rst
diff --git a/gnu/system/images/visionfive2.scm b/gnu/system/images/visionfive2.scm
index 11826d01b2c..ee0682b6fcd 100644
--- a/gnu/system/images/visionfive2.scm
+++ b/gnu/system/images/visionfive2.scm
@@ -99,6 +99,7 @@
 
 (define visionfive2-disk-image
   (image-without-os
+   (name 'visionfive2-disk-image)
    (format 'disk-image)
    (partition-table-type 'gpt)
    (partitions (list