diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-11-25 10:48:55 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-25 11:59:54 +0100 |
commit | 851b6f6283b68fbf711c91e253fd5a3433280946 (patch) | |
tree | 0f94d91f265a746e6c924aeb1563096d51f914e4 /guix | |
parent | b6094b1f0a6760b9f5296364cf5edb8a2e64953c (diff) |
gexp: Build text derivations locally.
* guix/gexp.scm (gexp->file): Pass #:substitutable? #f.
(text-file*): Likewise, and #:local-build? #t.
Diffstat (limited to 'guix')
-rw-r--r-- | guix/gexp.scm | 7 |
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 |