normalize-post-data ( request -- request )

Vocabulary

http.client.post-data.private

Inputs

request

an object

Outputs

request

an object

Definition

USING: accessors io.encodings.ascii io.encodings.string
io.pathnames kernel urls.encoding ;

IN: http.client.post-data.private

: normalize-post-data ( request -- request )
    dup post-data>> [
        dup params>> [ assoc>query ascii encode >>data ] when*
        dup data>> pathname?
        [ [ pathname>measured-stream ] change-data ] when drop
    ] when* ;