02/06: gexp: Build text derivations locally.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 851b6f6283b68fbf711c91e253fd5a3433280946
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 25 10:48:55 2015 +0100

    gexp: Build text derivations locally.
    
    * guix/gexp.scm (gexp->file): Pass #:substitutable? #f.
    (text-file*): Likewise, and #:local-build? #t.
---
 guix/gexp.scm |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/guix/gexp.scm b/guix/gexp.scm
index 27bccc6..14ced74 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -980,7 +980,8 @@ its search path."
                      (call-with-output-file (ungexp output)
                        (lambda (port)
                          (write '(ungexp exp) port))))
-                    #:local-build? #t))
+                    #:local-build? #t
+                    #:substitutable? #f))
 
 (define* (text-file* name #:rest text)
   "Return as a monadic value a derivation that builds a text file containing
@@ -992,7 +993,9 @@ resulting store file holds references to all these."
             (lambda (port)
               (display (string-append (ungexp-splicing text)) port)))))
 
-  (gexp->derivation name builder))
+  (gexp->derivation name builder
+                    #:local-build? #t
+                    #:substitutable? #f))
 
 (define* (mixed-text-file name #:rest text)
   "Return an object representing store file NAME containing TEXT.  TEXT is a