summaryrefslogtreecommitdiff
path: root/guix/scripts/lint.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-03-17 23:41:37 +0100
committerLudovic Courtès <ludo@gnu.org>2017-03-18 00:39:50 +0100
commit4fd06a4dd1d4a894b96e586cef594270f8bbb88f (patch)
treefe9ed8b141d4606e4153e0a476bfb8694b64869d /guix/scripts/lint.scm
parent36626c556ed75219bce196ac93d148f6b9af984c (diff)
downloadpatches-4fd06a4dd1d4a894b96e586cef594270f8bbb88f.tar
patches-4fd06a4dd1d4a894b96e586cef594270f8bbb88f.tar.gz
http-client: Avoid name clash with 'open-connection-for-uri' in 2.2.0.
* guix/build/download.scm (open-connection-for-uri): Add note about same-named binding in Guile 2.2.0. * guix/http-client.scm: Use 'guix:open-connection-for-uri' for the procedure coming from (guix build download). * guix/scripts/lint.scm: Likewise. * guix/scripts/substitute.scm: Likewise.
Diffstat (limited to 'guix/scripts/lint.scm')
-rw-r--r--guix/scripts/lint.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 776e7332c5..66c82f0409 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -44,7 +44,8 @@
#:use-module (web uri)
#:use-module ((guix build download)
#:select (maybe-expand-mirrors
- open-connection-for-uri
+ (open-connection-for-uri
+ . guix:open-connection-for-uri)
close-connection))
#:use-module (web request)
#:use-module (web response)
@@ -377,7 +378,8 @@ for connections to complete; when TIMEOUT is #f, wait as long as needed."
((or 'http 'https)
(catch #t
(lambda ()
- (let ((port (open-connection-for-uri uri #:timeout timeout))
+ (let ((port (guix:open-connection-for-uri
+ uri #:timeout timeout))
(request (build-request uri #:headers headers)))
(define response
(dynamic-wind