summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-03-05 23:25:37 +0100
committerLudovic Courtès <ludo@gnu.org>2014-03-06 21:42:24 +0100
commit56c72822a81cdf5ff4022d64a26887df427d62dd (patch)
treed9450eb0c323a4506cacce2cb07d483bd8cd191c
parent8b3099cf03b2d1ebcd233b4a35d132cd73b5728d (diff)
downloadgnu-guix-56c72822a81cdf5ff4022d64a26887df427d62dd.tar
gnu-guix-56c72822a81cdf5ff4022d64a26887df427d62dd.tar.gz
download: Perform derivations locally.
* guix/download.scm (url-fetch): Pass #:local-build? #t to 'build-expression->derivation'. * guix/git-download.scm (git-fetch): Likewise.
-rw-r--r--guix/download.scm6
-rw-r--r--guix/git-download.scm3
2 files changed, 7 insertions, 2 deletions
diff --git a/guix/download.scm b/guix/download.scm
index 2cc8a4a5b8..0889928d3a 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -242,7 +242,11 @@ must be a list of symbol/URL-list pairs."
(guix build utils)
(guix ftp-client))
#:guile-for-build guile-for-build
- #:env-vars env-vars)))
+ #:env-vars env-vars
+
+ ;; In general, offloading downloads is not a
+ ;; good idea.
+ #:local-build? #t)))
(define* (download-to-store store url #:optional (name (basename url))
#:key (log (current-error-port)))
diff --git a/guix/git-download.scm b/guix/git-download.scm
index 472bf756ce..5e0a6a21dc 100644
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -84,6 +84,7 @@ type HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if
#:recursive? #t
#:modules '((guix build git)
(guix build utils))
- #:guile-for-build guile-for-build)))
+ #:guile-for-build guile-for-build
+ #:local-build? #t)))
;;; git-download.scm ends here