mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-13 06:36:37 -05:00
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
1 changed files with 6 additions and 3 deletions
|
@ -304,9 +304,12 @@ (define* (qemu-image #:key
|
|||
#:register-closures? #$register-closures?
|
||||
#:system-directory #$os-drv))
|
||||
(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/" <>)
|
||||
graphs))
|
||||
graphs)))
|
||||
(- disk-image-size
|
||||
(* 50 (expt 2 20)))))
|
||||
(partitions (list (partition
|
||||
|
|
Loading…
Reference in a new issue