me
/
guix
Archived
1
0
Fork 0
Code

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
build-aux/hydra/gnu-system.scm
View File

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