tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

hydra: Specify the image size of the QEMU image.

Browse Source 
* build-aux/hydra/gnu-system.scm (qemu-jobs): Specify
  #:disk-image-size.
This commit is contained in:
Ludovic Courtès
2014-04-11 18:49:02 +02:00
parent 55651ff207
commit 616d9e1d2c
1 changed files with 5 additions and 2 deletions
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))))
'()))
'()))