diff options
author | Danny Milosavljevic <dannym@scratchpost.org> | 2017-07-03 10:05:03 +0200 |
---|---|---|
committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-07-03 10:07:59 +0200 |
commit | be1033a3349069ee722bf25c804b3bfee4467886 (patch) | |
tree | 153668a59cd5833b7fac3e955074446789af53c3 /build-aux/hydra | |
parent | 1b0f266e40aead09be95a984bd9c6cec3dff397e (diff) | |
download | guix-be1033a3349069ee722bf25c804b3bfee4467886.tar.gz |
build: Add iso9660 system image generator.
* build-aux/hydra/gnu-system.scm (qemu-jobs): Add 'iso9660-image . * gnu/build/vm.scm (make-iso9660-image): New variable. Export it. * gnu/system/vm.scm (iso9660-image): New variable. Use make-iso9660-image. (system-disk-image): Use iso9660-image.
Diffstat (limited to 'build-aux/hydra')
-rw-r--r-- | build-aux/hydra/gnu-system.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index eeb7183a4f..73bd566f7c 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -162,7 +162,14 @@ system.") (set-guile-for-build (default-guile)) (system-disk-image installation-os #:disk-image-size - (* 1024 MiB)))))) + (* 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) |