summaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-04-11 18:49:02 +0200
committerLudovic Courtès <ludo@gnu.org>2014-04-11 19:08:25 +0200
commit616d9e1d2cc5f2c2dbee86008d040e701692a416 (patch)
tree6e5901cd1e67d00f10e9cac93aa51f2d110f79a5 /build-aux
parent55651ff20740037ddeb29ffe9d93097935bd023b (diff)
hydra: Specify the image size of the QEMU image.
* build-aux/hydra/gnu-system.scm (qemu-jobs): Specify #:disk-image-size.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/hydra/gnu-system.scm7
1 files 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))))
'()))
'()))