lookup ( long-urls -- short-urls )


Vocabulary
bitly

Inputs
long-urlsan object


Outputs
short-urlsan object


Definition
USING: assocs bitly.private kernel sequences urls ;

IN: bitly

: lookup ( long-urls -- short-urls )
"lookup" <bitly-url> swap "url" set-query-param
json-data "lookup" of [ "short_url" of ] map ;