Skip to content
Snippets Groups Projects
Commit 6b44a097 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

download: Disable offloading for downloads.

* guix/download.scm (url-fetch): Use #:local-build? #t.
* guix/git-download.scm (git-fetch): Likewise.
parent cf897cba
No related branches found
No related tags found
No related merge requests found
...@@ -288,12 +288,11 @@ (define builder ...@@ -288,12 +288,11 @@ (define builder
;; Honor the user's proxy settings. ;; Honor the user's proxy settings.
#:leaked-env-vars '("http_proxy" "https_proxy") #:leaked-env-vars '("http_proxy" "https_proxy")
;; In general, offloading downloads is not a good idea. ;; In general, offloading downloads is not a good
;;#:local-build? #t ;; idea. Daemons before 0.8.3 would also
;; FIXME: The above would also disable use of ;; interpret this as "do not substitute" (see
;; substitutes on old daemons, so comment it out; ;; <https://bugs.gnu.org/18747>.)
;; see <https://bugs.gnu.org/18747>. #:local-build? #t)))))
)))))
(define* (download-to-store store url #:optional (name (basename url)) (define* (download-to-store store url #:optional (name (basename url))
#:key (log (current-error-port)) recursive?) #:key (log (current-error-port)) recursive?)
......
...@@ -89,9 +89,7 @@ (define build ...@@ -89,9 +89,7 @@ (define build
(mlet %store-monad ((guile (package->derivation guile system))) (mlet %store-monad ((guile (package->derivation guile system)))
(gexp->derivation (or name "git-checkout") build (gexp->derivation (or name "git-checkout") build
#:system system #:system system
;; FIXME: See <https://bugs.gnu.org/18747>. #:local-build? #t ;don't offload repo cloning
;; Uncomment when fixed daemons are widely deployed.
;;#:local-build? #t
#:hash-algo hash-algo #:hash-algo hash-algo
#:hash hash #:hash hash
#:recursive? #t #:recursive? #t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment