<json-post-data> ( assoc/json-string -- post-data )

Vocabulary

json.http

Inputs

assoc/json-string

an object

Outputs

post-data

an object

Definition

USING: accessors http io.encodings.string io.encodings.utf8 json
kernel strings ;

IN: json.http

: <json-post-data> ( assoc/json-string -- post-data )
    dup string? [ >json ] unless utf8 encode
    "application/json" <post-data> swap >>data ;