vm: Add a minimum root size.

* gnu/system/vm.scm (qemu-image): When guessing the root-size, use a lower
  bound of 20 MiB, otherwise the root file system size is sometimes 0 MiB in
  size.
This commit is contained in:
Christopher Baines 2017-09-28 18:57:09 +01:00
parent d0c8e5249d
commit 0c75a4de49
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 6 additions and 3 deletions

View File

@ -304,9 +304,12 @@ the image."
#:register-closures? #$register-closures? #:register-closures? #$register-closures?
#:system-directory #$os-drv)) #:system-directory #$os-drv))
(root-size #$(if (eq? 'guess disk-image-size) (root-size #$(if (eq? 'guess disk-image-size)
#~(estimated-partition-size #~(max
;; Minimum 20 MiB root size
(* 20 (expt 2 20))
(estimated-partition-size
(map (cut string-append "/xchg/" <>) (map (cut string-append "/xchg/" <>)
graphs)) graphs)))
(- disk-image-size (- disk-image-size
(* 50 (expt 2 20))))) (* 50 (expt 2 20)))))
(partitions (list (partition (partitions (list (partition