~ruther/guix-local: hydra: Specify the image size of the QEMU image.

616d9e1d2cc5f2c2dbee86008d040e701692a416 — Ludovic Courtès 12 years ago 55651ff

hydra: Specify the image size of the QEMU image.

* build-aux/hydra/gnu-system.scm (qemu-jobs): Specify
  #:disk-image-size.

patch browse .tar.gz

1 files changed, 5 insertions(+), 2 deletions(-)

M build-aux/hydra/gnu-system.scm

M build-aux/hydra/gnu-system.scm => build-aux/hydra/gnu-system.scm +5 -2

@@ 133,10 133,13 @@ system.")
   (if (string=? system "x86_64-linux")
       (let* ((dir  (dirname (assoc-ref (current-source-location) 'filename)))
              (file (string-append dir "/demo-os.scm"))
-             (os   (read-operating-system file)))
+             (os   (read-operating-system file))
+             (size (* 1400 (expt 2 20))))         ; 1.4GiB
         (if (operating-system? os)
             (list (->job 'qemu-image
-                         (run-with-store store (system-qemu-image os))))
+                         (run-with-store store
+                           (system-qemu-image os
+                                              #:disk-image-size size))))
             '()))
       '()))