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/dpop-proof.scm | |
| parent | 6d70723f85635b23aa8b52bb5adfb3140d9029bd (diff) | |
JWK: the default signature algorithm "alg" is now a key parameter
Diffstat (limited to 'src/scm/webid-oidc/dpop-proof.scm')
| -rw-r--r-- | src/scm/webid-oidc/dpop-proof.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/dpop-proof.scm b/src/scm/webid-oidc/dpop-proof.scm index 5e01235..8c66f68 100644 --- a/src/scm/webid-oidc/dpop-proof.scm +++ b/src/scm/webid-oidc/dpop-proof.scm @@ -409,13 +409,12 @@ (define* (issue-dpop-proof client-key #:key - (alg #f) (htm #f) (htu #f) (access-token #f)) (dpop-proof-encode (the-dpop-proof - `(((alg . ,(symbol->string alg)) + `(((alg . ,(symbol->string (alg client-key))) (typ . "dpop+jwt") (jwk . ,(key->jwk (public-key client-key)))) . ((jti . ,(stubs:random 12)) |