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:
parent
d0c8e5249d
commit
0c75a4de49
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue