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 )
[
"http://twitter.com/oauth/request_token"
"https://twitter.com/oauth/request_token"
<request-token-params>
obtain-request-token
] with-twitter-oauth ;
@ -38,7 +38,7 @@ PRIVATE>
: 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>
swap >>verifier
swap >>request-token