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/reverse-proxy.scm | |
| parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) | |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/reverse-proxy.scm')
| -rw-r--r-- | src/scm/webid-oidc/reverse-proxy.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/scm/webid-oidc/reverse-proxy.scm b/src/scm/webid-oidc/reverse-proxy.scm index 30e6d48..ee4878e 100644 --- a/src/scm/webid-oidc/reverse-proxy.scm +++ b/src/scm/webid-oidc/reverse-proxy.scm @@ -28,9 +28,9 @@ #:use-module (srfi srfi-19) #:use-module (rnrs bytevectors) #:use-module (web uri) + #:use-module (web client) ;; required to pass the request along #:use-module (web request) #:use-module (web response) - #:use-module (web client) #:use-module (webid-oidc cache) #:use-module (webid-oidc web-i18n) #:use-module (web server) @@ -43,7 +43,6 @@ (define* (make-reverse-proxy #:key (server-uri #f) - (http-get http-get) (endpoint #f) (auth-header 'XXX-Agent)) (set! auth-header @@ -54,8 +53,7 @@ (symbol->string auth-header)))) (define authenticate (make-authenticator - #:server-uri server-uri - #:http-get http-get)) + #:server-uri server-uri)) (unless (and endpoint (uri? endpoint)) (fail (G_ "#:endpoint argument is not present or not an URI."))) (lambda (request request-body) |