summaryrefslogtreecommitdiff
path: root/src/scm/webid-oidc/oidc-id-token.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-09-17 18:31:01 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-09-21 22:25:03 +0200
commit55195e4659339f56036c2f98d06cfd59a0141514 (patch)
tree0e4853d1039021ac337b5879a9d3d89d05287dd5 /src/scm/webid-oidc/oidc-id-token.scm
parent6d70723f85635b23aa8b52bb5adfb3140d9029bd (diff)
JWK: the default signature algorithm "alg" is now a key parameter
Diffstat (limited to 'src/scm/webid-oidc/oidc-id-token.scm')
-rw-r--r--src/scm/webid-oidc/oidc-id-token.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/oidc-id-token.scm b/src/scm/webid-oidc/oidc-id-token.scm
index e44d946..abef88d 100644
--- a/src/scm/webid-oidc/oidc-id-token.scm
+++ b/src/scm/webid-oidc/oidc-id-token.scm
@@ -18,6 +18,7 @@
#:use-module (webid-oidc oidc-configuration)
#:use-module (webid-oidc errors)
#:use-module (webid-oidc jws)
+ #:use-module (webid-oidc jwk)
#:use-module (webid-oidc jti)
#:use-module (webid-oidc web-i18n)
#:use-module ((webid-oidc stubs) #:prefix stubs:)
@@ -302,7 +303,6 @@
(define* (issue-id-token
issuer-key
#:key
- (alg #f)
(webid #f)
(iss #f)
(sub #f)
@@ -314,7 +314,7 @@
(exp (+ iat validity)))
(jws-encode
(the-id-token
- `(((alg . ,(symbol->string alg)))
+ `(((alg . ,(symbol->string (alg issuer-key))))
. ((webid . ,(uri->string webid))
(iss . ,(uri->string iss))
(sub . ,sub)