aboutsummaryrefslogtreecommitdiff
path: root/build-aux/hydra/gnu-system.scm
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2018-01-29 15:56:51 +0100
committerDanny Milosavljevic <dannym@scratchpost.org>2018-01-29 15:56:51 +0100
commit44b0303762f58badd9b9f8f1145e54b76b9d19d2 (patch)
treed3637a3d1817097a3d5b15a77d1661e63f867f87 /build-aux/hydra/gnu-system.scm
parentebd6a6445fa7d3db64795840a607815abbd56880 (diff)
downloadguix-44b0303762f58badd9b9f8f1145e54b76b9d19d2.tar
guix-44b0303762f58badd9b9f8f1145e54b76b9d19d2.tar.gz
hydra: Only build the "flash image" on arm.
* build-aux/hydra/gnu-system.scm (qemu-jobs): Only build the "flash image" on arm.
Diffstat (limited to 'build-aux/hydra/gnu-system.scm')
-rw-r--r--build-aux/hydra/gnu-system.scm48
1 files changed, 26 insertions, 22 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 0886d5f3db..ab240cbc5c 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -163,29 +163,33 @@ system.")
(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)