diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-16 23:03:12 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 22:25:03 +0200 |
| commit | fa486f2e136a898d1b1548ec90757a78c65a0b70 (patch) | |
| tree | 7601f939c6859547cc2df38e587c5d9473bae76d /src/scm/webid-oidc/oidc-configuration.scm | |
| parent | 86bd90866fdc2ab5234c6e09e39bfa972f7fa395 (diff) | |
JWK: document it, and use GOOPS
Diffstat (limited to 'src/scm/webid-oidc/oidc-configuration.scm')
| -rw-r--r-- | src/scm/webid-oidc/oidc-configuration.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/oidc-configuration.scm b/src/scm/webid-oidc/oidc-configuration.scm index d9aab84..2233d95 100644 --- a/src/scm/webid-oidc/oidc-configuration.scm +++ b/src/scm/webid-oidc/oidc-configuration.scm @@ -141,8 +141,12 @@ (define oidc-configuration-token-endpoint (uri-field 'token_endpoint)) -(define (oidc-configuration-jwks cfg . args) - (apply get-jwks (oidc-configuration-jwks-uri cfg) args)) +(define* (oidc-configuration-jwks cfg #:key (http-get http-get)) + (let ((http-request-for-get-jwks + (lambda* (uri #:key (method 'GET)) + (http-get uri)))) + (get-jwks (oidc-configuration-jwks-uri cfg) + #:http-request http-request-for-get-jwks))) (define (serve-oidc-configuration expiration-date cfg) (values (build-response #:headers `((content-type . (application/json)) |