nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vm: Print the label and UUID of partitions. 

* 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 @@ actual /dev name based on DEVICE."
#: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