(check-proxy) ( proxy -- ? )

Vocabulary

http.client.private

Inputs

proxy

an object

Outputs

?

an object

Definition

USING: accessors combinators http.client kernel urls ;

IN: http.client.private

: (check-proxy) ( proxy -- ? )
    {
        { [ dup URL" " = ] [ drop f ] }
        { [ dup host>> ] [ drop t ] }
        [ invalid-proxy ]
    } cond ;