b2-post-request* ( assoc path accountId? -- json' )

Vocabulary

backblaze

Inputs

assoc	an object
path	an object
accountId?	an object

Outputs

json'

an object

Definition

USING: http.client http.json json kernel sequences ;

IN: backblaze

: b2-post-request* ( assoc path accountId? -- json' )
    swap [ [ b2-add-account-id ] when >json ] dip
    authorized-account-api-url prepend <post-request>
    b2-add-auth-header http-request-json nip ;