?set-basic-auth ( header url name -- header )

Vocabulary

http.client.private

Inputs

header	an object
url	an object
name	an object

Outputs

header

an object

Definition

USING: accessors assocs http kernel ;

IN: http.client.private

: ?set-basic-auth ( header url name -- header )
    swap [
        [ username>> ] [ password>> ] bi 2dup and
        [ basic-auth swap pick set-at ] [ 3drop ] if
    ] [ drop ] if* ;