aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-07-03 10:05:03 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2017-07-03 10:07:59 +0200
commitbe1033a3349069ee722bf25c804b3bfee4467886 (patch)
tree153668a59cd5833b7fac3e955074446789af53c3 /build-aux
parent1b0f266e40aead09be95a984bd9c6cec3dff397e (diff)
downloadguix-be1033a3349069ee722bf25c804b3bfee4467886.tar
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')
-rw-r--r--build-aux/hydra/gnu-system.scm9
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)