get-json ( url -- json )

Vocabulary

itunes

Inputs

url

an object

Outputs

json

an object

Definition

USING: accessors http.client json kernel ;

IN: itunes

: get-json ( url -- json )
    dup http-get over code>> 200 =
    [ 2nip json> ] [ http-get-error ] if ;