twitter: Update API url.

db4
Doug Coleman 2013-02-01 07:13:08 -08:00
parent 422ccf9901
commit bc651331bb
1 changed files with 2 additions and 2 deletions

View File

@ -22,7 +22,7 @@ twitter-source [ "factor" ] initialize
: twitter-url ( string -- string' ) : twitter-url ( string -- string' )
ssl-supported? ssl-supported?
"https://twitter.com/" "http://twitter.com/" ? prepend ; "https://api.twitter.com/" "http://api.twitter.com/" ? prepend ;
PRIVATE> PRIVATE>
@ -54,7 +54,7 @@ MACRO: keys-boa ( keys class -- )
! Twitter requests ! Twitter requests
: status-url ( string -- url ) : status-url ( string -- url )
"statuses/" ".json" surround twitter-url ; "1.1/statuses/" ".json" surround twitter-url ;
: set-request-twitter-auth ( request -- request ) : set-request-twitter-auth ( request -- request )
[ <oauth-request-params> set-oauth ] with-twitter-oauth ; [ <oauth-request-params> set-oauth ] with-twitter-oauth ;