get-gcp-jwt: sot -> jot, moar vertical
Since we only have one JWT (the thing we produce is an "access token",
not a JWT), we can just call it jot.
;< =key:rsa bind:m read-private-key
;< kid=@t bind:m (read-setting %private-key-id)
;< aud=@t bind:m (read-setting %token-uri)
-=/ sot=@t
+=/ jot=@t
%: make-jwt
key kid iss
'https://www.googleapis.com/auth/cloud-platform'
aud now.bowl
==
;< p=[access-token=@t expires-at=@da] bind:m
- (get-access-token sot aud now.bowl)
+ (get-access-token jot aud now.bowl)
(pure:m !>(p))
::
++ read-setting
|= key=term
=/ m (strand @t) ^- form:m
;< has=? bind:m
- (scry:strandio ? /gx/settings-store/has-entry/gcp-store/[key]/noun)
+ %+ scry:strandio ?
+ /gx/settings-store/has-entry/gcp-store/[key]/noun
?. has
(strand-fail:strandio %no-setting key ~)
;< =data:settings bind:m
