?default-proxy ( request -- request' )

Vocabulary

http.client.private

Inputs

request

an object

Outputs

request'

an object

Definition

USING: accessors kernel urls ;

IN: http.client.private

: ?default-proxy ( request -- request' )
    dup get-default-proxy over proxy-url>> dup
    [ request-url ] when 2dup and [
        pick no-proxy?
        [ nip ] [ [ request-url ] dip derive-url ] if
    ] [ nip ] if check-proxy ;