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

google.gmail: fix to use set-query-params.

char-rename
John Benediktsson 2017-01-23 10:06:16 -08:00
parent 14f51e2dd5
commit 81da68c906
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/google/gmail/gmail.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2016 Björn Lindqvist. ! Copyright (C) 2016 Björn Lindqvist.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays json.reader kernel namespaces oauth2 sequences ; USING: accessors arrays json.reader kernel namespaces oauth2
sequences urls ;
IN: google.gmail IN: google.gmail
CONSTANT: api-base "https://www.googleapis.com/gmail/v1/users" CONSTANT: api-base "https://www.googleapis.com/gmail/v1/users"
@ -29,7 +30,7 @@ SYMBOL: access-token
: api-call ( method get-params -- result ) : api-call ( method get-params -- result )
ensure-token ensure-token
[ api-base prepend ] dip string+params>url [ api-base prepend >url ] dip set-query-params
access-token get access>> oauth-http-get nip access-token get access>> oauth-http-get nip
json> ; json> ;