diff options
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)) |