visionect-post ( data path -- data )

Vocabulary

visionect.private

Inputs

data	an object
path	an object

Outputs

data

an object

Definition

USING: accessors http http.client kernel ;

IN: visionect.private

: visionect-post ( data path -- data )
    visionect-url <post-request> dup data>> dup post-data?
    [ content-type>> "Content-Type" set-header ] [ drop ] if
    visionect-request ;