add-default-headers ( request -- request )

Vocabulary

http.client

Inputs

request

an object

Outputs

request

an object

Definition

USING: accessors combinators http.websockets kernel sequences ;

IN: http.client

: add-default-headers ( request -- request )
    dup url>> protocol>> {
        {
            [ dup { "ws" "wss" } member? ]
            [ drop add-websocket-upgrade-headers ]
        }
        [ drop ]
    } cond ;