branch master updated: system: image: Do not offload image files.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 6a95817  system: image: Do not offload image files.
6a95817 is described below

commit 6a9581741e4ee81226aeb2f1c997df76670a6aab
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Aug 26 08:11:34 2020 -0400

    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.
---
 gnu/system/image.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 36f56e2..c1a718d 100644
--- 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?))))
 
 
 ;;
@@ -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?))))