vm: Print the label and UUID of partitions.

* gnu/build/vm.scm (create-ext-file-system): Print the label and UUID.
2018-05-23 10:14:20 +02:00 · 2018-05-23 10:14:20 +02:00 · 353df40102
parent d282388789
commit 353df40102
1 changed files with 2 additions and 1 deletions
--- a/gnu/build/vm.scm
+++ b/gnu/build/vm.scm
@ -265,7 +265,8 @@ actual /dev name based on DEVICE."
                                 #:key label uuid)
  "Create an ext-family file system of TYPE on PARTITION.  If LABEL is true,
 use that as the volume name.  If UUID is true, use it as the partition UUID."
-  (format #t "creating ~a partition...\n" type)
+  (format #t "creating ~a partition... ~@[label: ~s~] ~@[uuid: ~s~]\n"
+          type label (and uuid (uuid->string uuid)))
  (apply invoke (string-append "mkfs." type)
         "-F" partition
         `(,@(if label