mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

vm: Print the label and UUID of partitions.

Browse source 
* gnu/build/vm.scm (create-ext-file-system): Print the label and UUID.
This commit is contained in:
Ludovic Courtès 2018-05-23 10:14:20 +02:00
parent d282388789
commit 353df40102
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/build/vm.scm
View file

@ -265,7 +265,8 @@ (define* (create-ext-file-system partition type
#:key label uuid) #:key label uuid)
"Create an ext-family file system of TYPE on PARTITION. If LABEL is true, "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." 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) (apply invoke (string-append "mkfs." type)
"-F" partition "-F" partition
`(,@(if label `(,@(if label