me/guix
Archived
1
0
Fork 0
Code Activity

gexp: Build text derivations locally.

Browse source 
* guix/gexp.scm (gexp->file): Pass #:substitutable? #f.
(text-file*): Likewise, and #:local-build? #t.
This commit is contained in:
Ludovic Courtès 2015-11-25 10:48:55 +01:00
parent b6094b1f0a
commit 851b6f6283
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/gexp.scm
View file

@ -980,7 +980,8 @@ its search path."
(call-with-output-file (ungexp output) (call-with-output-file (ungexp output)
(lambda (port) (lambda (port)
(write '(ungexp exp) port)))) (write '(ungexp exp) port))))
#:local-build? #t)) #:local-build? #t
#:substitutable? #f))
(define* (text-file* name #:rest text) (define* (text-file* name #:rest text)
"Return as a monadic value a derivation that builds a text file containing "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) (lambda (port)
(display (string-append (ungexp-splicing text)) 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) (define* (mixed-text-file name #:rest text)
"Return an object representing store file NAME containing TEXT. TEXT is a "Return an object representing store file NAME containing TEXT. TEXT is a