From 242ad41c0129eabfdc6678ae9eebd1c887ece55e Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Tue, 28 Jun 2016 09:36:34 -0400
Subject: download: Use basic authentication when userinfo is present in URI.

* guix/download.scm (url-fetch): Include (guix base64) module on the
  build-side.
* guix/build/download.scm (http-fetch): Add "Authorization" header when
  userinfo is present in the URI.
---
 guix/download.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix/download.scm')

diff --git a/guix/download.scm b/guix/download.scm
index 9b238dcbdf..c3f34f5520 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -328,7 +328,8 @@ (define builder
                             #:modules '((guix build download)
                                         (guix build utils)
                                         (guix ftp-client)
-                                        (guix base32))
+                                        (guix base32)
+                                        (guix base64))
 
                             ;; Use environment variables and a fixed script
                             ;; name so there's only one script in store for
-- 
cgit v1.2.3