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/fetch.scm | |
| parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) | |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/fetch.scm')
| -rw-r--r-- | src/scm/webid-oidc/fetch.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/scm/webid-oidc/fetch.scm b/src/scm/webid-oidc/fetch.scm index aed4512..e18cc60 100644 --- a/src/scm/webid-oidc/fetch.scm +++ b/src/scm/webid-oidc/fetch.scm @@ -16,12 +16,12 @@ (define-module (webid-oidc fetch) #:use-module (webid-oidc web-i18n) + #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (ice-9 optargs) #:use-module (ice-9 receive) #:use-module (ice-9 match) #:use-module (ice-9 exceptions) #:use-module (rnrs bytevectors) - #:use-module (web client) #:use-module (web request) #:use-module (web response) #:use-module (web uri) @@ -49,7 +49,7 @@ cannot-fetch-linked-data? (uri cannot-fetch-linked-data-uri)) -(define* (fetch uri #:key (http-get http-get)) +(define (fetch uri) (unless (uri? uri) (set! uri (string->uri uri))) (with-exception-handler @@ -68,8 +68,8 @@ error)))) (lambda () (receive (response response-body) - (http-get uri - #:headers `((accept (text/turtle application/n-quads application/ld+json)))) + ((p:anonymous-http-request) uri + #:headers `((accept (text/turtle application/n-quads application/ld+json)))) (with-exception-handler (lambda (error) (let ((final-message |