twitter: use https to get request and access tokens now that http.client is up to spec

db4
Slava Pestov 2010-07-05 22:55:32 -04:00
parent a7dec01453
commit 23f2a82d47
1 changed files with 2 additions and 2 deletions

View File

@ -27,7 +27,7 @@ PRIVATE>
: obtain-twitter-request-token ( -- request-token ) : obtain-twitter-request-token ( -- request-token )
[ [
"http://twitter.com/oauth/request_token" "https://twitter.com/oauth/request_token"
<request-token-params> <request-token-params>
obtain-request-token obtain-request-token
] with-twitter-oauth ; ] with-twitter-oauth ;
@ -38,7 +38,7 @@ PRIVATE>
: obtain-twitter-access-token ( request-token verifier -- access-token ) : obtain-twitter-access-token ( request-token verifier -- access-token )
[ [
[ "http://twitter.com/oauth/access_token" ] 2dip [ "https://twitter.com/oauth/access_token" ] 2dip
<access-token-params> <access-token-params>
swap >>verifier swap >>verifier
swap >>request-token swap >>request-token