aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-25 10:48:55 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-25 11:59:54 +0100
commit851b6f6283b68fbf711c91e253fd5a3433280946 (patch)
tree0f94d91f265a746e6c924aeb1563096d51f914e4
parentb6094b1f0a6760b9f5296364cf5edb8a2e64953c (diff)
downloadguix-851b6f6283b68fbf711c91e253fd5a3433280946.tar
guix-851b6f6283b68fbf711c91e253fd5a3433280946.tar.gz
gexp: Build text derivations locally.
* guix/gexp.scm (gexp->file): Pass #:substitutable? #f. (text-file*): Likewise, and #:local-build? #t.
-rw-r--r--guix/gexp.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm
index 27bccc6206..14ced747b2 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