diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-22 13:11:21 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-22 18:08:47 +0200 |
commit | 555e59deba33284067298ce6130c379c75e3d2a3 (patch) | |
tree | c15c823913e917bc474f1cf163caf65a117ee9c3 /src/scm/webid-oidc/jwk.scm | |
parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/jwk.scm')
-rw-r--r-- | src/scm/webid-oidc/jwk.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/jwk.scm b/src/scm/webid-oidc/jwk.scm index f1078aa..9dae649 100644 --- a/src/scm/webid-oidc/jwk.scm +++ b/src/scm/webid-oidc/jwk.scm @@ -16,6 +16,7 @@ (define-module (webid-oidc jwk) #:use-module ((webid-oidc stubs) #:prefix stubs:) + #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (webid-oidc errors) #:use-module (webid-oidc web-i18n) #:use-module (ice-9 receive) @@ -25,7 +26,6 @@ #:use-module (ice-9 match) #:use-module (srfi srfi-19) #:use-module (web response) - #:use-module (web client) #:use-module (rnrs bytevectors) #:use-module (oop goops) #:use-module (sxml match) @@ -495,8 +495,8 @@ . ,(list->vector (map key->jwk (keys jwks)))))))) -(define* (get-jwks uri #:key (http-request http-request)) - (receive (response response-body) (http-request uri) +(define (get-jwks uri) + (receive (response response-body) ((p:anonymous-http-request) uri) (with-exception-handler (lambda (error) (raise-exception |