From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: Re: [PATCH] http-client: Support basic authentication.
Date: Sat, 19 Dec 2015 14:51:28 +0100
Message-ID: <87zix635sv.fsf@gnu.org>
References: <idjh9ji7l0w.fsf@bimsb-sys02.mdc-berlin.net>
	<idjfuz27jks.fsf@bimsb-sys02.mdc-berlin.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:40513)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1aAHv5-00031H-Bq
	for guix-devel@gnu.org; Sat, 19 Dec 2015 08:51:36 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1aAHv1-00069f-Be
	for guix-devel@gnu.org; Sat, 19 Dec 2015 08:51:35 -0500
In-Reply-To: <idjfuz27jks.fsf@bimsb-sys02.mdc-berlin.net> (Ricardo Wurmus's
	message of "Wed, 16 Dec 2015 11:51:15 +0100")
List-Id: "Development of GNU Guix and the GNU System distribution."
	<guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-devel>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
To: Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>
Cc: "guix-devel@gnu.org" <guix-devel@gnu.org>

Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> skribis:

> Binding the result of (uri-userinfo uri) fixes it:
>
>       (let*-values ((userinfo (uri-userinfo uri))
>                     (auth-header
>                      (match userinfo
>                        ((str) (cons 'Authorization
>                                     (string-append "Basic "
>                                                    (base64-encode
>                                                     (string->utf8 str)))))
>                        (_ '())))
>                        ...) ...)
>
> I don=E2=80=99t understand this.  Does (uri-userinfo uri) return multiple
> values?

=E2=80=98uri-userinfo=E2=80=99 is a simple field accessor; it returns one v=
alue.

Ludo=E2=80=99.