From 56c72822a81cdf5ff4022d64a26887df427d62dd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 5 Mar 2014 23:25:37 +0100
Subject: [PATCH] download: Perform derivations locally.
* guix/download.scm (url-fetch): Pass #:local-build? #t to
'build-expression->derivation'.
* guix/git-download.scm (git-fetch): Likewise.
---
guix/download.scm | 6 +++++-
guix/git-download.scm | 3 ++-
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/guix/download.scm b/guix/download.scm
index 2cc8a4a5b8e..0889928d3a5 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -242,7 +242,11 @@ (define need-gnutls?
(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 472bf756ced..5e0a6a21dce 100644
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -84,6 +84,7 @@ (define git-for-build
#: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
--
GitLab