read-response-body ( quot: ( chunk -- ) response -- )

Vocabulary

http.client.private

Inputs

quot	a quotation with stack effect ( chunk -- )
response	an object

Outputs

None

Definition

USING: http io io.encodings io.encodings.binary kernel ;

IN: http.client.private

: read-response-body ( quot: ( chunk -- ) response -- )
    binary decode-input "transfer-encoding" header "chunked" =
    [ read-chunked ] [ each-block ] if ; inline