check-status ( json -- json )

Vocabulary

bitly.private

Inputs

json

an object

Outputs

json

an object

Definition

USING: assocs kernel ;

IN: bitly.private

: check-status ( json -- json )
    dup "status_code" of 200 =
    [ dup "status_txt" of bad-response ] unless ;