[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/06: gexp: Build text derivations locally.

From: Ludovic Courtès
Subject: 02/06: gexp: Build text derivations locally.
Date: Wed, 25 Nov 2015 11:00:17 +0000

civodul pushed a commit to branch master
in repository guix.

commit 851b6f6283b68fbf711c91e253fd5a3433280946
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 25 10:48:55 2015 +0100

    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 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/guix/gexp.scm b/guix/gexp.scm
index 27bccc6..14ced74 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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]