diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-03-05 23:25:37 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-06 21:42:24 +0100 |
| commit | 56c72822a81cdf5ff4022d64a26887df427d62dd (patch) | |
| tree | d9450eb0c323a4506cacce2cb07d483bd8cd191c | |
| parent | 8b3099cf03b2d1ebcd233b4a35d132cd73b5728d (diff) | |
| download | 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.scm | 6 | ||||
| -rw-r--r-- | guix/git-download.scm | 3 |
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 |