03/05: self: Mark trivial "-modules" derivations as non-substitutable.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8727e0304b68cd22e827331bb40ea269f243c6ab
Author: Ludovic Courtès <address@hidden>
Date:   Thu Sep 26 18:49:25 2019 +0200

    self: Mark trivial "-modules" derivations as non-substitutable.
    
    The resulting nar takes ~500KiB and it's quicker to build it locally
    than to download it.
    
    * guix/self.scm (node-source+compiled): Pass #:options to
    'computed-file'.
---
 guix/self.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/self.scm b/guix/self.scm
index f03fe01..142c834 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -124,7 +124,11 @@ NODE's modules, under their FHS directories: 
share/guile/site and lib/guile."
           (symlink #$(node-compiled node) object))))
 
   (computed-file (string-append (node-name node) "-modules")
-                 build))
+                 build
+                 #:options '(#:local-build? #t
+
+                             ;; "Building" it locally is faster.
+                             #:substitutable? #f)))
 
 (define (node-fold proc init nodes)
   (let loop ((nodes nodes)