diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 19:49:24 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 22:34:45 +0200 |
commit | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (patch) | |
tree | bcac166559940b2785e5925aedd2ce39e751d9fa /src/scm/webid-oidc/jws.scm | |
parent | 3be4b418a4ec1e94d28401810ff8629ddc86adf9 (diff) |
OIDC configuration: use GOOPS and document it
Diffstat (limited to 'src/scm/webid-oidc/jws.scm')
-rw-r--r-- | src/scm/webid-oidc/jws.scm | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/src/scm/webid-oidc/jws.scm b/src/scm/webid-oidc/jws.scm index 22dabdd..bfb941f 100644 --- a/src/scm/webid-oidc/jws.scm +++ b/src/scm/webid-oidc/jws.scm @@ -472,7 +472,7 @@ (define-method (lookup-keys (token <oidc-token>) args) (let-keywords args #f - ((http-request http-request)) + ((http-request (p:anonymous-http-request))) (let ((iss (iss token))) (let ((cfg (with-exception-handler @@ -488,13 +488,9 @@ (make-exception-with-message final-message) error)))) (lambda () - (get-oidc-configuration - (uri-host iss) - #:userinfo (uri-userinfo iss) - #:port (uri-port iss) - #:http-get - (lambda* (uri . args) - (apply http-request uri #:method 'GET args))))))) + (make <oidc-configuration> + #:server iss + #:http-request http-request))))) (with-exception-handler (lambda (error) (raise-exception @@ -509,11 +505,8 @@ (append (keys (next-method)) (keys - (oidc-configuration-jwks - cfg - #:http-get - (lambda* (uri . args) - (apply http-request uri #:method 'GET args))))))))))) + (parameterize ((p:anonymous-http-request http-request)) + (jwks cfg)))))))))) (define verify (make <generic-with-default> |