hydra: Specify the image size of the QEMU image.
* build-aux/hydra/gnu-system.scm (qemu-jobs): Specify #:disk-image-size.
This commit is contained in:
parent
55651ff207
commit
616d9e1d2c
|
@ -133,10 +133,13 @@ system.")
|
||||||
(if (string=? system "x86_64-linux")
|
(if (string=? system "x86_64-linux")
|
||||||
(let* ((dir (dirname (assoc-ref (current-source-location) 'filename)))
|
(let* ((dir (dirname (assoc-ref (current-source-location) 'filename)))
|
||||||
(file (string-append dir "/demo-os.scm"))
|
(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)
|
(if (operating-system? os)
|
||||||
(list (->job 'qemu-image
|
(list (->job 'qemu-image
|
||||||
(run-with-store store (system-qemu-image os))))
|
(run-with-store store
|
||||||
|
(system-qemu-image os
|
||||||
|
#:disk-image-size size))))
|
||||||
'()))
|
'()))
|
||||||
'()))
|
'()))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue