From 353df40102b209a06376044af946a28c2594377b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès 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(-) (limited to 'gnu/build') 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 @@ 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 -- cgit 1.4.1