-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 ;< =key:rsa bind:m read-private-key
;< kid=@t bind:m (read-setting %private-key-id) ;< kid=@t bind:m (read-setting %private-key-id)
;< aud=@t bind:m (read-setting %token-uri) ;< aud=@t bind:m (read-setting %token-uri)
=/ sot=@t =/ jot=@t
%: make-jwt %: make-jwt
key kid iss key kid iss
'https://www.googleapis.com/auth/cloud-platform' 'https://www.googleapis.com/auth/cloud-platform'
aud now.bowl aud now.bowl
== ==
;< p=[access-token=@t expires-at=@da] bind:m ;< 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)) (pure:m !>(p))
:: ::
++ read-setting ++ read-setting
|= key=term |= key=term
=/ m (strand @t) ^- form:m =/ m (strand @t) ^- form:m
;< has=? bind: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 ?. has
(strand-fail:strandio %no-setting key ~) (strand-fail:strandio %no-setting key ~)
;< =data:settings bind:m ;< =data:settings bind:m