Skip to content
Snippets Groups Projects
Commit 851b6f62 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

gexp: Build text derivations locally.

* guix/gexp.scm (gexp->file): Pass #:substitutable? #f.
(text-file*): Likewise, and #:local-build? #t.
parent b6094b1f
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment