http.client: remove http-get* and its friends, change http-request* and with-http...

[factor.git] / extra / bit / ly / ly.factor

diff --git a/extra/bit/ly/ly.factor b/extra/bit/ly/ly.factor
index c89c3791bd704791984755bdc87eda951a1968b5..f69eff34b011e2f140b54c89c3461a5468ab1d34 100644 (file)
--- a/extra/bit/ly/ly.factor
+++ b/extra/bit/ly/ly.factor
@@ -23,7 +23,7 @@ ERROR: bad-response json status ;
     ] unless ;
 
 : json-data ( url -- json )
-    http-get* json> check-status "data" of ;
+    http-get nip json> check-status "data" of ;
 
 : get-short-url ( short-url path -- data )
     <bitly-url> swap "shortUrl" set-query-param json-data ;