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/provider-confirmation.scm | |
parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/provider-confirmation.scm')
-rw-r--r-- | src/scm/webid-oidc/provider-confirmation.scm | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/src/scm/webid-oidc/provider-confirmation.scm b/src/scm/webid-oidc/provider-confirmation.scm index c0d7ea8..e46663e 100644 --- a/src/scm/webid-oidc/provider-confirmation.scm +++ b/src/scm/webid-oidc/provider-confirmation.scm @@ -17,8 +17,8 @@ (define-module (webid-oidc provider-confirmation) #:use-module (webid-oidc errors) #:use-module (webid-oidc fetch) + #: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) @@ -81,9 +81,7 @@ (expires . ,expiration-date))) resource))) -(define* (get-provider-confirmations subject - #:key - (http-get http-get)) +(define (get-provider-confirmations subject) (unless (equal? (uri-scheme subject) 'https) (set! subject (build-uri 'https #:userinfo (uri-userinfo subject) @@ -92,19 +90,16 @@ #:path (uri-path subject) #:query (uri-query subject) #:fragment (uri-fragment subject)))) - (let ((graph (fetch subject #:http-get http-get))) + (let ((graph (fetch subject))) (cons (build-uri 'https #:userinfo (uri-userinfo subject) #:host (uri-host subject) #:port (uri-port subject)) (find-confirmations (uri->string subject) graph)))) -(define* (confirm-provider subject issuer - #:key (http-get http-get)) +(define (confirm-provider subject issuer) (unless (string=? (uri-host subject) (uri-host issuer)) - (let search ((providers (get-provider-confirmations - subject - #:http-get http-get))) + (let search ((providers (get-provider-confirmations subject))) (match providers (() (let ((final-message |