From 616d9e1d2cc5f2c2dbee86008d040e701692a416 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 11 Apr 2014 18:49:02 +0200 Subject: [PATCH] hydra: Specify the image size of the QEMU image. * build-aux/hydra/gnu-system.scm (qemu-jobs): Specify #:disk-image-size. --- build-aux/hydra/gnu-system.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index 44191fa24a..28fad6a8e2 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -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)))) '())) '()))