me
/
guix
Archived
1
0
Fork 0

hydra: Specify the image size of the QEMU image.

* build-aux/hydra/gnu-system.scm (qemu-jobs): Specify
  #:disk-image-size.
master
Ludovic Courtès 2014-04-11 18:49:02 +02:00
parent 55651ff207
commit 616d9e1d2c
1 changed files with 5 additions and 2 deletions

View File

@ -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))))
'())) '()))
'())) '()))