steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bit.ly: check response for errors

release
Slava Pestov 2010-04-13 00:54:36 -07:00
parent 88f627a402
commit c09f1567cb
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/bit/ly/ly.factor
View File

@ -14,8 +14,16 @@ SYMBOLS: login api-key ;
"json" "format" set-query-param
swap "longUrl" set-query-param ;
ERROR: bad-response json status ;
: check-response ( json -- json )
dup "status_code" swap at 200 = [
dup "status_txt" swap at
bad-response
] unless ;
: parse-response ( response data -- short-url )
nip json> "data" swap at "url" swap at ;
nip json> check-response "data" swap at "url" swap at ;
PRIVATE>