diff options
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)) |