From 851b6f6283b68fbf711c91e253fd5a3433280946 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 25 Nov 2015 10:48:55 +0100 Subject: 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 file 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 @@ (define (gexp->file name exp) (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 @@ (define builder (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 -- cgit v1.2.3