From 555e59deba33284067298ce6130c379c75e3d2a3 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Wed, 22 Sep 2021 13:11:21 +0200 Subject: Use anonymous-http-request from (webid-oidc parameters) everywhere --- src/scm/webid-oidc/reverse-proxy.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/scm/webid-oidc/reverse-proxy.scm') 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) -- cgit v1.2.3