[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: vm: Print the label and UUID of partitions.
|
From: |
Ludovic Courtès |
|
Subject: |
02/04: vm: Print the label and UUID of partitions. |
|
Date: |
Wed, 23 May 2018 04:21:13 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 353df40102b209a06376044af946a28c2594377b
Author: Ludovic Courtès <address@hidden>
Date: Wed May 23 10:14:20 2018 +0200
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 527b4c4..989b74f 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... address@hidden: ~s~] address@hidden:
~s~]\n"
+ type label (and uuid (uuid->string uuid)))
(apply invoke (string-append "mkfs." type)
"-F" partition
`(,@(if label