-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.
This commit is contained in:
J 2021-02-23 22:57:12 +00:00
parent 61d8030ec9
commit aa93ac49c1

View File

@ -31,21 +31,22 @@
;< =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