From 353df40102b209a06376044af946a28c2594377b Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 23 May 2018 10:14:20 +0200
Subject: vm: Print the label and UUID of partitions.

* gnu/build/vm.scm (create-ext-file-system): Print the label and UUID.
---
 gnu/build/vm.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm
index 527b4c495d..989b74f4f1 100644
--- a/gnu/build/vm.scm
+++ b/gnu/build/vm.scm
@@ -265,7 +265,8 @@ (define* (create-ext-file-system partition type
                                  #: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
-- 
cgit v1.2.3