diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-29 23:26:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-30 00:16:50 +0200 |
| commit | a2cf57e79e0c1ca59ff854c12ece178a73fe224d (patch) | |
| tree | cea7c72990cebc251fc559f5d3be57abf21ead96 | |
| parent | 6efb98ed3cc0ff4b2a35f4a08651d5ad15d1a9cd (diff) | |
vm: Display the disk and partition sizes.
* gnu/build/vm.scm (load-in-linux-vm): Add 'format' call when
MAKE-DISK-IMAGE? is true.
(initialize-partition-table): Show the size of the partitions being
created.
| -rw-r--r-- | gnu/build/vm.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm index 56ebeaea63..7d5e613956 100644 --- a/gnu/build/vm.scm +++ b/gnu/build/vm.scm @@ -85,6 +85,9 @@ access it via /dev/hda. REFERENCES-GRAPHS can specify a list of reference-graph files as produced by the #:references-graphs parameter of 'derivation'." (when make-disk-image? + (format #t "creating ~a image of ~,2f MiB...~%" + disk-image-format (/ disk-image-size (expt 2 20))) + (force-output) (unless (zero? (system* "qemu-img" "create" "-f" disk-image-format output (number->string disk-image-size))) @@ -193,8 +196,15 @@ actual /dev name based on DEVICE." (cons (partition-options head offset index) result)))))) - (format #t "creating partition table with ~a partitions...\n" - (length partitions)) + (format #t "creating partition table with ~a partitions (~a)...\n" + (length partitions) + (string-join (map (compose (cut string-append <> " MiB") + number->string + (lambda (size) + (round (/ size (expt 2. 20)))) + partition-size) + partitions) + ", ")) (unless (zero? (apply system* "parted" "--script" device "mklabel" label-type (options partitions offset))) |