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/token-endpoint.scm | |
| parent | 6d70723f85635b23aa8b52bb5adfb3140d9029bd (diff) | |
JWK: the default signature algorithm "alg" is now a key parameter
Diffstat (limited to 'src/scm/webid-oidc/token-endpoint.scm')
| -rw-r--r-- | src/scm/webid-oidc/token-endpoint.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/token-endpoint.scm b/src/scm/webid-oidc/token-endpoint.scm index 30a78d4..81f8e48 100644 --- a/src/scm/webid-oidc/token-endpoint.scm +++ b/src/scm/webid-oidc/token-endpoint.scm @@ -177,7 +177,7 @@ port))))))) thunk)))) -(define (make-token-endpoint token-endpoint-uri iss alg jwk validity) +(define (make-token-endpoint token-endpoint-uri iss jwk validity) (lambda (request request-body) (when (bytevector? request-body) (set! request-body (utf8->string request-body))) @@ -290,7 +290,6 @@ (let ((id-token (issue-id-token jwk - #:alg alg #:webid webid #:sub (uri->string webid) #:iss iss @@ -299,7 +298,6 @@ (access-token (issue-access-token jwk - #:alg alg #:webid webid #:iss iss #:validity 3600 |