diff options
Diffstat (limited to 'src/scm/webid-oidc/identity-provider.scm')
-rw-r--r-- | src/scm/webid-oidc/identity-provider.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/identity-provider.scm b/src/scm/webid-oidc/identity-provider.scm index 8bd3e5b..e22f1ef 100644 --- a/src/scm/webid-oidc/identity-provider.scm +++ b/src/scm/webid-oidc/identity-provider.scm @@ -57,9 +57,7 @@ jwks-uri authorization-endpoint-uri token-endpoint-uri - jti-list #:key - (current-time current-time) (http-get http-get)) (let ((key (catch #t @@ -80,11 +78,9 @@ 'ES256))) (let ((authorization-endpoint (make-authorization-endpoint subject encrypted-password alg key 120 - #:current-time current-time #:http-get http-get)) (token-endpoint - (make-token-endpoint token-endpoint-uri issuer alg key 3600 jti-list - #:current-time current-time)) + (make-token-endpoint token-endpoint-uri issuer alg key 3600)) (openid-configuration (make-oidc-configuration jwks-uri authorization-endpoint-uri |