From: "Ludovic Courtès" <ludo@gnu.org>
To: 43968@debbugs.gnu.org
Cc: "Ludovic Courtès" <ludo@gnu.org>
Subject: [bug#43968] [PATCH 3/3] git: Support HTTP and HTTPS proxies.
Date: Mon, 12 Oct 2020 23:09:55 +0200 [thread overview]
Message-ID: <20201012210955.8753-3-ludo@gnu.org> (raw)
In-Reply-To: <20201012210955.8753-1-ludo@gnu.org>
This allows 'guix pull' and similar to fetch code over a proxy.
* guix/git.scm (make-default-fetch-options): Pass #:proxy-url.
---
guix/git.scm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/guix/git.scm b/guix/git.scm
index b81a011443..364b4997ae 100644
--- a/guix/git.scm
+++ b/guix/git.scm
@@ -161,11 +161,14 @@ the 'SSL_CERT_FILE' and 'SSL_CERT_DIR' environment variables."
(define (make-default-fetch-options)
"Return the default fetch options."
(let ((auth-method (%make-auth-ssh-agent)))
- ;; The #:transfer-progress option appeared in Guile-Git 0.4.0. Omit it
- ;; when using an older version.
+ ;; The #:transfer-progress and #:proxy-url options appeared in Guile-Git
+ ;; 0.4.0. Omit them when using an older version.
(catch 'wrong-number-of-args
(lambda ()
(make-fetch-options auth-method
+ ;; Guile-Git doesn't distinguish between these.
+ #:proxy-url (or (getenv "http_proxy")
+ (getenv "https_proxy"))
#:transfer-progress
(and (isatty? (current-error-port))
show-progress)))
--
2.28.0
next prev parent reply other threads:[~2020-10-12 21:15 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-10-12 20:49 [bug#43968] [PATCH 0/3] Git progress report and proxy support Ludovic Courtès
2020-10-12 21:09 ` [bug#43968] [PATCH 1/3] git: Require Guile-Git 0.3.0 or later Ludovic Courtès
2020-10-12 21:09 ` [bug#43968] [PATCH 2/3] git: Display a progress bar while fetching a repo Ludovic Courtès
2020-10-12 21:09 ` Ludovic Courtès [this message]
2020-10-22 15:12 ` bug#43968: [PATCH 0/3] Git progress report and proxy support Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20201012210955.8753-3-ludo@gnu.org \
--to=ludo@gnu.org \
--cc=43968@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.