diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 14:51:28 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 18:08:56 +0200 |
commit | bae1843f1a1d644fb3bd4f8c40b1dbb900aa3325 (patch) | |
tree | 00f590033af904a6a493e41bdebe9b3ddd73043b /src/scm/webid-oidc/identity-provider.scm | |
parent | d8c2ca930673da858d63f2dea9526c259a2dd936 (diff) |
Use guile parameters
With parameters, the API does not need to care about the directory
where to load files and how to get the time.
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 |