ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

hydra: Only build the "flash image" on arm.

Browse source 
* build-aux/hydra/gnu-system.scm (qemu-jobs): Only build the "flash image"
on arm.
This commit is contained in:
Danny Milosavljevic 2018-01-29 15:56:51 +01:00
parent ebd6a6445f
commit 44b0303762
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 26 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
build-aux/hydra/gnu-system.scm
View file

@ -163,29 +163,33 @@ (define (->job name drv)
(define MiB
(expt 2 20))
(define (adjust-bootloader os)
(if (member system %u-boot-systems)
(operating-system (inherit os)
(bootloader ((@ (gnu bootloader) bootloader-configuration)
(bootloader u-boot-bootloader)
(target "/dev/null"))))
os))
(if (member system %guixsd-supported-systems)
(list (->job 'usb-image
(run-with-store store
(mbegin %store-monad
(set-guile-for-build (default-guile))
(system-disk-image (adjust-bootloader installation-os)
#:disk-image-size
(* 1024 MiB)))))
(->job 'iso9660-image
(run-with-store store
(mbegin %store-monad
(set-guile-for-build (default-guile))
(system-disk-image installation-os
#:file-system-type
"iso9660")))))
(if (member system %u-boot-systems)
(list (->job 'flash-image
(run-with-store store
(mbegin %store-monad
(set-guile-for-build (default-guile))
(system-disk-image
(operating-system (inherit os)
(bootloader (bootloader-configuration
(bootloader u-boot-bootloader)
(target #f))))
#:disk-image-size
(* 1024 MiB))))))
(list (->job 'usb-image
(run-with-store store
(mbegin %store-monad
(set-guile-for-build (default-guile))
(system-disk-image installation-os
#:disk-image-size
(* 1024 MiB)))))
(->job 'iso9660-image
(run-with-store store
(mbegin %store-monad
(set-guile-for-build (default-guile))
(system-disk-image installation-os
#:file-system-type
"iso9660"))))))
'()))
(define (system-test-jobs store system)