diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-17 18:31:01 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 22:25:03 +0200 |
| commit | 55195e4659339f56036c2f98d06cfd59a0141514 (patch) | |
| tree | 0e4853d1039021ac337b5879a9d3d89d05287dd5 /src/scm/webid-oidc/access-token.scm | |
| parent | 6d70723f85635b23aa8b52bb5adfb3140d9029bd (diff) | |
JWK: the default signature algorithm "alg" is now a key parameter
Diffstat (limited to 'src/scm/webid-oidc/access-token.scm')
| -rw-r--r-- | src/scm/webid-oidc/access-token.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/access-token.scm b/src/scm/webid-oidc/access-token.scm index 0cc8c27..7e67270 100644 --- a/src/scm/webid-oidc/access-token.scm +++ b/src/scm/webid-oidc/access-token.scm @@ -325,7 +325,6 @@ (define* (issue-access-token issuer-key #:key - (alg #f) (webid #f) (iss #f) (validity 3600) @@ -338,7 +337,7 @@ (exp (+ iat validity))) (jws-encode (the-access-token - `(((alg . ,(symbol->string alg))) + `(((alg . ,(symbol->string (alg issuer-key)))) . ((webid . ,(uri->string webid)) (iss . ,(uri->string iss)) (aud . "solid") |