~ruther/guix-local

6b44a09747d18f1570c26f135c7f1a88c317201c — Ludovic Courtès 10 years ago cf897cb
download: Disable offloading for downloads.

* guix/download.scm (url-fetch): Use #:local-build? #t.
* guix/git-download.scm (git-fetch): Likewise.
2 files changed, 6 insertions(+), 9 deletions(-)

M guix/download.scm
M guix/git-download.scm
M guix/download.scm => guix/download.scm +5 -6
@@ 288,12 288,11 @@ in the store."
                            ;; Honor the user's proxy settings.
                            #:leaked-env-vars '("http_proxy" "https_proxy")

                            ;; In general, offloading downloads is not a good idea.
                            ;;#:local-build? #t
                            ;; FIXME: The above would also disable use of
                            ;; substitutes on old daemons, so comment it out;
                            ;; see <https://bugs.gnu.org/18747>.
                            )))))
                            ;; In general, offloading downloads is not a good
                            ;; idea.  Daemons before 0.8.3 would also
                            ;; interpret this as "do not substitute" (see
                            ;; <https://bugs.gnu.org/18747>.)
                            #:local-build? #t)))))

(define* (download-to-store store url #:optional (name (basename url))
                            #:key (log (current-error-port)) recursive?)

M guix/git-download.scm => guix/git-download.scm +1 -3
@@ 89,9 89,7 @@ HASH-ALGO (a symbol).  Use NAME as the file name, or a generic name if #f."
  (mlet %store-monad ((guile (package->derivation guile system)))
    (gexp->derivation (or name "git-checkout") build
                      #:system system
                      ;; FIXME: See <https://bugs.gnu.org/18747>.
                      ;; Uncomment when fixed daemons are widely deployed.
                      ;;#:local-build? #t
                      #:local-build? #t           ;don't offload repo cloning
                      #:hash-algo hash-algo
                      #:hash hash
                      #:recursive? #t