upgrade-to-websocket? ( response -- ? )

Vocabulary

http.client.private

Inputs

response

an object

Outputs

?

an object

Definition

USING: accessors ascii assocs combinators.short-circuit http
kernel ;

IN: http.client.private

: upgrade-to-websocket? ( response -- ? )
    {
        [ response? ]
        [ code>> 101 = ]
        [ message>> >lower "switching protocols" = ]
        [ header>> "connection" of "upgrade" = ]
        [ header>> "upgrade" of "websocket" = ]
    } 1&& ;