system: image: Do not offload image files.

Image files can be very large (multiple gigabytes), and the process of
generating them is primarily I/O bound. As disk access is typically faster
than network access, it makes sense build them locally.

* gnu/system/image.scm (system-disk-image): Pass the #:local-build? #t
parameter to computed-file calls dealing with generating image files.
(system-iso9660-image): Likewise.

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 36f56e2..c1a718d 100644 (file)
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -266,7 +266,8 @@ used in the image."
                                        #$output
                                        image-root)))))
         (computed-file "partition.img" image-builder
-                       #:options `(#:references-graphs ,inputs))))
+                       #:options `(#:local-build? #t ;typically large file
+                                   #:references-graphs ,inputs))))
 
     (define (partition->config partition)
       ;; Return the genimage partition configuration for PARTITION.
@@ -324,7 +325,8 @@ image ~a {
                    #~(symlink
                       (string-append #$image-dir "/" #$genimage-name)
                       #$output)
-                   #:options `(#:substitutable? ,substitutable?))))
+                   #:options `(#:local-build? #t ;typically large file
+                               #:substitutable? ,substitutable?))))
 
 \f
 ;;
@@ -401,7 +403,8 @@ used in the image. "
                                  #:volume-id #$root-label
                                  #:volume-uuid #$root-uuid)))))
     (computed-file name builder
-                   #:options `(#:references-graphs ,inputs
+                   #:options `(#:local-build? #t ;typically large file
+                               #:references-graphs ,inputs
                                #:substitutable? ,substitutable?))))
 
 \f