diff options
Diffstat (limited to 'build-aux/hydra/gnu-system.scm')
| -rw-r--r-- | build-aux/hydra/gnu-system.scm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index f62c9cb11d..cfef7dc425 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -147,14 +147,18 @@ system.") (if (member system '("x86_64-linux" "i686-linux")) (list (->job 'qemu-image (run-with-store store - (system-qemu-image (demo-os) - #:disk-image-size - (* 1400 MiB)))) ; 1.4 GiB + (mbegin %store-monad + (set-guile-for-build (default-guile)) + (system-qemu-image (demo-os) + #:disk-image-size + (* 1400 MiB))))) ; 1.4 GiB (->job 'usb-image (run-with-store store - (system-disk-image installation-os - #:disk-image-size - (* 800 MiB))))) + (mbegin %store-monad + (set-guile-for-build (default-guile)) + (system-disk-image installation-os + #:disk-image-size + (* 800 MiB)))))) '())) (define job-name |