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/authorization-endpoint.scm | |
| parent | 6d70723f85635b23aa8b52bb5adfb3140d9029bd (diff) | |
JWK: the default signature algorithm "alg" is now a key parameter
Diffstat (limited to 'src/scm/webid-oidc/authorization-endpoint.scm')
| -rw-r--r-- | src/scm/webid-oidc/authorization-endpoint.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/authorization-endpoint.scm b/src/scm/webid-oidc/authorization-endpoint.scm index 86a8a4d..cf45a9c 100644 --- a/src/scm/webid-oidc/authorization-endpoint.scm +++ b/src/scm/webid-oidc/authorization-endpoint.scm @@ -43,7 +43,7 @@ (let ((c (crypt password encrypted-password))) (string=? c encrypted-password))) -(define* (make-authorization-endpoint subject encrypted-password alg jwk validity +(define* (make-authorization-endpoint subject encrypted-password jwk validity #:key (http-get http-get)) (define (parse-arg x decode-plus-to-space?) @@ -108,7 +108,6 @@ (lambda () (let ((code (issue-authorization-code jwk - #:alg alg #:webid subject #:client-id client-id)) (mf (get-client-manifest client-id |