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/oidc-configuration.scm | |
| parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) | |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/oidc-configuration.scm')
| -rw-r--r-- | src/scm/webid-oidc/oidc-configuration.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/scm/webid-oidc/oidc-configuration.scm b/src/scm/webid-oidc/oidc-configuration.scm index 0a776d1..d0d1e20 100644 --- a/src/scm/webid-oidc/oidc-configuration.scm +++ b/src/scm/webid-oidc/oidc-configuration.scm @@ -21,7 +21,6 @@ #:use-module ((webid-oidc stubs) #:prefix stubs:) #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (web uri) - #:use-module (web client) #:use-module (web response) #:use-module (rnrs bytevectors) #:use-module (srfi srfi-19) @@ -67,8 +66,7 @@ (token-endpoint #f) (solid-oidc-supported "https://solidproject.org/TR/solid-oidc") (json-data #f) - (server #f) - (http-request (p:anonymous-http-request))) + (server #f)) (let do-initialize ((jwks-uri jwks-uri) (authorization-endpoint authorization-endpoint) (token-endpoint token-endpoint) @@ -150,7 +148,7 @@ #:host (uri-host server) #:port (uri-port server) #:path "/.well-known/openid-configuration"))) - (receive (response response-body) (http-request discovery-uri) + (receive (response response-body) ((p:anonymous-http-request) discovery-uri) (with-exception-handler (lambda (error) (raise-exception @@ -184,7 +182,7 @@ (make-exception (make-invalid-oidc-configuratin) (make-exception-with-message - (G_ "when making an OIDC configuration, either its required #:jwks-uri, #:authorization-endpoint and #:token-endpoint fields or #:server (and optionally #:http-request) or #:json-data should be passed"))))))))) + (G_ "when making an OIDC configuration, either its required #:jwks-uri, #:authorization-endpoint and #:token-endpoint fields or #:server or #:json-data should be passed"))))))))) (define-method (->json-data (cfg <oidc-configuration>)) `((jwks_uri . ,(uri->string (jwks-uri cfg))) @@ -198,4 +196,4 @@ (stubs:scm->json-string (->json-data cfg)))) (define-method (jwks (cfg <oidc-configuration>)) - (get-jwks (jwks-uri cfg) #:http-request (p:anonymous-http-request))) + (get-jwks (jwks-uri cfg))) |