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.
2017-09-28 18:57:09 +01:00 · 2017-09-28 18:57:09 +01:00 · 0c75a4de49
parent d0c8e5249d
commit 0c75a4de49
1 changed files with 6 additions and 3 deletions
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@ -304,9 +304,12 @@ the image."
                               #:register-closures? #$register-closures?
                               #:system-directory #$os-drv))
                  (root-size  #$(if (eq? 'guess disk-image-size)
-                                    #~(estimated-partition-size
-                                       (map (cut string-append "/xchg/" <>)
-                                            graphs))
+                                    #~(max
+                                       ;; Minimum 20 MiB root size
+                                       (* 20 (expt 2 20))
+                                       (estimated-partition-size
+                                        (map (cut string-append "/xchg/" <>)
+                                             graphs)))
                                    (- disk-image-size
                                       (* 50 (expt 2 20)))))
                  (partitions (list (partition